momo Splash Screen implementálása

2018-04-17 18:50:37 +02:00
parent d5160c511b
commit c372a33399
14 changed files with 2404 additions and 6 deletions
@@ -0,0 +1,51 @@
+Imports DevExpress.ExpressApp.Win
+Imports DevExpress.XtraSplashScreen
+
+Public Class MomoSplash
+    Implements ISplash, ISupportUpdateSplash
+
+    Private _IsStarted As Boolean = False
+    Private _Counter As Int16 = 0
+    Sub New()
+        InitializeComponent()
+    End Sub
+
+    Public ReadOnly Property IsStarted As Boolean Implements ISplash.IsStarted
+        Get
+            Return _IsStarted
+        End Get
+    End Property
+
+    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
+        MyBase.ProcessCommand(cmd, arg)
+    End Sub
+
+    Public Sub Start() Implements ISplash.Start
+        If _Counter <= 1 Then
+            _IsStarted = True
+            Me.Properties.UseFadeInEffect = False
+            Me.Properties.UseFadeOutEffect = False
+            Me.Show()
+            System.Windows.Forms.Application.DoEvents()
+
+        End If
+    End Sub
+
+    Public Sub [Stop]() Implements ISplash.Stop
+        Me.Hide()
+        Me.Close()
+        _IsStarted = False
+    End Sub
+
+    Public Sub SetDisplayText(displayText As String) Implements ISplash.SetDisplayText
+
+    End Sub
+
+    Public Sub UpdateSplash(caption As String, description As String, ParamArray additionalParams() As Object) Implements ISupportUpdateSplash.UpdateSplash
+        Me.labelControl2.Text = description
+    End Sub
+
+    Public Enum SplashScreenCommand
+        SomeCommandId
+    End Enum
+End Class