[سؤال] progressbar - نسخة قابلة للطباعة

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

والله أعلي وأعلم
Rolleyes