HA bemutatóra előkészítés

2018-04-22 22:20:16 +02:00
parent 5b333614ae
commit 714241c3a0
30 changed files with 418 additions and 1013 deletions
@@ -0,0 +1,28 @@
+Imports DevExpress.ExpressApp.Win
+'... 
+Public Class MomoSplash
+    Implements ISplash
+    Private Shared form As MomoSplashScreen
+    Private _isStarted As Boolean
+    Public Sub Start() Implements ISplash.Start
+        _isStarted = True
+        form = New MomoSplashScreen
+        form.Show()
+        System.Windows.Forms.Application.DoEvents()
+    End Sub
+    Public Sub [Stop]() Implements ISplash.Stop
+        If form IsNot Nothing Then
+            form.Hide()
+            form.Close()
+            form = Nothing
+        End If
+        _isStarted = False
+    End Sub
+    Public Sub SetDisplayText(ByVal displayText As String) Implements ISplash.SetDisplayText
+    End Sub
+    Public ReadOnly Property IsStarted() As Boolean Implements ISplash.IsStarted
+        Get
+            Return _isStarted
+        End Get
+    End Property
+End Class