29 lines
843 B
VB.net
29 lines
843 B
VB.net
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
|