Public Class ucProgress Inherits System.Windows.Forms.UserControl #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub 'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Für Windows Form-Designer erforderlich Private components As System.ComponentModel.IContainer 'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich 'Sie kann mit dem Windows Form-Designer modifiziert werden. 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. Friend WithEvents Bar1 As UtilityLibrary.WinControls.ProgressBarEx Friend WithEvents info As System.Windows.Forms.Label Private Sub InitializeComponent() Me.Bar1 = New UtilityLibrary.WinControls.ProgressBarEx() Me.info = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'Bar1 ' Me.Bar1.BackgroundBitmap = Nothing Me.Bar1.BackgroundColor = System.Drawing.Color.FromArgb(CType(220, Byte), CType(217, Byte), CType(211, Byte)) Me.Bar1.Border3D = System.Windows.Forms.Border3DStyle.Flat Me.Bar1.BorderColor = System.Drawing.SystemColors.Highlight Me.Bar1.EnableBorder3D = True Me.Bar1.ForegroundBitmap = Nothing Me.Bar1.ForegroundColor = System.Drawing.Color.Blue Me.Bar1.GradientEndColor = System.Drawing.Color.Navy Me.Bar1.GradientMiddleColor = System.Drawing.Color.Blue Me.Bar1.GradientStartColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte)) Me.Bar1.Maximum = 100 Me.Bar1.Minimum = 0 Me.Bar1.Name = "Bar1" Me.Bar1.ProgressTextColor = System.Drawing.Color.Empty Me.Bar1.ProgressTextHiglightColor = System.Drawing.Color.Empty Me.Bar1.ShowProgressText = True Me.Bar1.Size = New System.Drawing.Size(224, 24) Me.Bar1.Smooth = True Me.Bar1.Step = 10 Me.Bar1.TabIndex = 3 Me.Bar1.Text = "ProgressBarEx1" Me.Bar1.Value = 0 ' 'info ' Me.info.Location = New System.Drawing.Point(228, 5) Me.info.Name = "info" Me.info.Size = New System.Drawing.Size(284, 23) Me.info.TabIndex = 4 ' 'ucProgress ' Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.info, Me.Bar1}) Me.Name = "ucProgress" Me.Size = New System.Drawing.Size(520, 24) Me.ResumeLayout(False) End Sub #End Region End Class