52 lines
1.4 KiB
VB.net
52 lines
1.4 KiB
VB.net
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
|