MS General commit

This commit is contained in:
Digital Data - Marlon Schreiber
2019-07-08 12:09:59 +02:00
parent 22549ee7aa
commit 16e37caeb5
22 changed files with 758 additions and 167 deletions

View File

@@ -0,0 +1,24 @@
Public Class WaitForm1
Sub New
InitializeComponent()
Me.progressPanel1.AutoHeight = True
End Sub
Public Overrides Sub SetCaption(ByVal caption As String)
MyBase.SetCaption(caption)
Me.progressPanel1.Caption = caption
End Sub
Public Overrides Sub SetDescription(ByVal description As String)
MyBase.SetDescription(description)
Me.progressPanel1.Description = description
End Sub
Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
MyBase.ProcessCommand(cmd, arg)
End Sub
Public Enum WaitFormCommand
SomeCommandId
End Enum
End Class