momoERP.Win.HA Hozzáadása

2018-04-17 17:35:54 +02:00
parent 0ac6bd19e7
commit d5160c511b
59 changed files with 5649 additions and 0 deletions
@@ -0,0 +1,28 @@
+Imports DevExpress.ExpressApp.Win
+'... 
+Public Class SISSplash
+    Implements ISplash
+    Private Shared form As SISSplashScreen
+    Private _isStarted As Boolean
+    Public Sub Start() Implements ISplash.Start
+        _isStarted = True
+        form = New SISSplashScreen
+        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