Visual Basic NET ( 3)


Планировка грунта в Воронеже по материалам greenstroy36.ru.
Силомер Рокки Боксер еще на сайте.

(ProgressBar) - 2


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim k As Long

For k = 1 To 400 ' 400

()

ProgressBar1.PerformStep() '

Next

End Sub

Sub ()

Dim i As Long

For i = 1 To 1000000 : Next ' ( )

End Sub

: 400 . .

ProgressBar1.PerformStep() '

PerformStep ProgressBar1. Step.

Visual Basic 6.0. VS, , . ? Toolbox, 4.2.3, Microsoft ProgressBar Control, version 6.0. . . - , , AxProgressBar2. Scrolling. ( Orientation).

, Value.

:

  • Min - 0
  • Max - 10000
  • , :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    Dim a As Long

    For a = 1 To 10000

    AxProgressBar2.Value

    = a

    Next

    End Sub

    . , .