26 lines
818 B
VB.net
26 lines
818 B
VB.net
Public Class frmprogress
|
|
|
|
Dim min As Integer
|
|
|
|
Sub New(ByVal min As Integer, ByVal max As Integer, ByVal titel As String)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.ProgressBar1.Minimum = min
|
|
Me.ProgressBar1.Maximum = max
|
|
Me.titel.Text = titel
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
Private Sub frmprogress_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Sub Init_Progressbar(ByVal min As Integer, ByVal max As Integer, Optional titel As String = "")
|
|
Me.ProgressBar1.Minimum = min
|
|
Me.ProgressBar1.Maximum = max
|
|
If titel <> "" Then Me.titel.Text = titel
|
|
Me.ProgressBar1.Value = min
|
|
End Sub
|
|
End Class |