Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Four ProgressBars

Imports System.Windows.Forms public class ProgressBarDemo    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Inherits System.Windows.Forms.Form     Public Sub New()         MyBase.New()         InitializeComponent()     End Sub     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     Private components As System.ComponentModel.IContainer     Friend WithEvents Label1 As System.Windows.Forms.Label     Friend WithEvents Label2 As System.Windows.Forms.Label     Friend WithEvents Label3 As System.Windows.Forms.Label     Friend WithEvents Label4 As System.Windows.Forms.Label     Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar     Friend WithEvents ProgressBar2 As System.Windows.Forms.ProgressBar     Friend WithEvents ProgressBar3 As System.Windows.Forms.ProgressBar     Friend WithEvents ProgressBar4 As System.Windows.Forms.ProgressBar     Friend WithEvents Button1 As System.Windows.Forms.Button     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()         Me.Label1 = New System.Windows.Forms.Label         Me.Label2 = New System.Windows.Forms.Label         Me.Label3 = New System.Windows.Forms.Label         Me.Label4 = New System.Windows.Forms.Label         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar         Me.ProgressBar2 = New System.Windows.Forms.ProgressBar         Me.ProgressBar3 = New System.Windows.Forms.ProgressBar         Me.ProgressBar4 = New System.Windows.Forms.ProgressBar         Me.Button1 = New System.Windows.Forms.Button         Me.SuspendLayout()         '         'Label1         '         Me.Label1.Location = New System.Drawing.Point(24, 24)         Me.Label1.Name = "Label1"         Me.Label1.Size = New System.Drawing.Size(40, 24)         Me.Label1.TabIndex = 0         '         'Label2         '         Me.Label2.Location = New System.Drawing.Point(24, 56)         Me.Label2.Name = "Label2"         Me.Label2.Size = New System.Drawing.Size(40, 23)         Me.Label2.TabIndex = 1         '         'Label3         '         Me.Label3.Location = New System.Drawing.Point(24, 88)         Me.Label3.Name = "Label3"         Me.Label3.Size = New System.Drawing.Size(40, 24)         Me.Label3.TabIndex = 2         '         'Label4         '         Me.Label4.Location = New System.Drawing.Point(24, 128)         Me.Label4.Name = "Label4"         Me.Label4.Size = New System.Drawing.Size(40, 24)         Me.Label4.TabIndex = 3         '         'ProgressBar1         '         Me.ProgressBar1.Location = New System.Drawing.Point(88, 24)         Me.ProgressBar1.Maximum = 20         Me.ProgressBar1.Name = "ProgressBar1"         Me.ProgressBar1.Size = New System.Drawing.Size(176, 16)         Me.ProgressBar1.TabIndex = 4         '         'ProgressBar2         '         Me.ProgressBar2.Location = New System.Drawing.Point(88, 56)         Me.ProgressBar2.Maximum = 20         Me.ProgressBar2.Name = "ProgressBar2"         Me.ProgressBar2.Size = New System.Drawing.Size(176, 16)         Me.ProgressBar2.TabIndex = 5         '         'ProgressBar3         '         Me.ProgressBar3.Location = New System.Drawing.Point(88, 88)         Me.ProgressBar3.Maximum = 20         Me.ProgressBar3.Name = "ProgressBar3"         Me.ProgressBar3.Size = New System.Drawing.Size(176, 16)         Me.ProgressBar3.TabIndex = 6         '         'ProgressBar4         '         Me.ProgressBar4.Location = New System.Drawing.Point(88, 120)         Me.ProgressBar4.Maximum = 20         Me.ProgressBar4.Name = "ProgressBar4"         Me.ProgressBar4.Size = New System.Drawing.Size(176, 16)         Me.ProgressBar4.TabIndex = 7         '         'Button1         '         Me.Button1.Location = New System.Drawing.Point(112, 152)         Me.Button1.Name = "Button1"         Me.Button1.Size = New System.Drawing.Size(64, 24)         Me.Button1.TabIndex = 8         Me.Button1.Text = "Start"         '         'Form1         '         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)         Me.ClientSize = New System.Drawing.Size(292, 190)         Me.Controls.Add(Me.Button1)         Me.Controls.Add(Me.ProgressBar4)         Me.Controls.Add(Me.ProgressBar3)         Me.Controls.Add(Me.ProgressBar2)         Me.Controls.Add(Me.ProgressBar1)         Me.Controls.Add(Me.Label4)         Me.Controls.Add(Me.Label3)         Me.Controls.Add(Me.Label2)         Me.Controls.Add(Me.Label1)         Me.ResumeLayout(False)     End Sub     Private temp As Int32     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim i, j, k, l As Int16         temp = 0         For i = 0 To 20             ProgressBar1.Value = i             Label1.Text = i             For j = 0 To 20                 ProgressBar2.Value = j                 Label2.Text = j                 For k = 0 To 20                     ProgressBar3.Value = k                     Label3.Text = k                     For l = 0 To 20                         ProgressBar4.Value = l                         Label4.Text = l                         Me.Refresh()                         temp = temp + 1                     Next                 Next             Next         Next     End Sub End Class