Properties of the ProgressBar Control
AllowDrop Overrides Control.AllowDrop
BackgroundImage Gets or sets the background image for the ProgressBar control
BackgroundImageLayout Gets or sets the layout of the background image of the progress bar
CausesValidation Gets or sets a value indicating whether the control, when it receives focus, causes
validation to be performed on any controls that require validation
Font Gets or sets the font of text in the ProgressBar
ImeMode Gets or sets the input method editor (IME) for the ProgressBar
ImeModeBase Gets or sets the IME mode of a control
MarqueeAnimationSpeed Gets or sets the time period, in milliseconds, that it takes the progress block to scroll across the progress bar
Maximum Gets or sets the maximum value of the range of the control
Minimum Gets or sets the minimum value of the range of the control
Padding Gets or sets the space between the edges of a ProgressBar control and its contents
RightToLeftLayout Gets or sets a value indicating whether the ProgressBar and any text it contains is displayed from right to left
Step Gets or sets the amount by which a call to the PerformStep method increases the current position of the progress bar
Style Gets or sets the manner in which progress should be indicated on the progress bar
Value Gets or sets the current position of the progress bar
Example
كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) _
Handles MyBase.Load
'create two progress bars
Dim ProgressBar1 As ProgressBar
Dim ProgressBar2 As ProgressBar
ProgressBar1 = New ProgressBar()
ProgressBar2 = New ProgressBar()
'set position
ProgressBar1.Location = New Point(10, 10)
ProgressBar2.Location = New Point(10, 50)
'set values
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 200
ProgressBar1.Value = 130
ProgressBar2.Minimum = 0
ProgressBar2.Maximum = 100
ProgressBar2.Value = 40
'add the progress bar to the form
Me.Controls.Add(ProgressBar1)
Me.Controls.Add(ProgressBar2)
' Set the caption bar text of the form.
Me.Text = "tutorialspoint.com"
End Sub
End Class
والله أعلي وأعلم