[مبتدئ]

كود :

Dim i As New Integer
        If ProgressBar1.Value = i < 50AndAlso i > 0 Then
            Label1.Text = i
        End If

اريد من الكود ان يكتب رقم value من 1 الى 50

[سعود]

استخدم For اذا لم يكن مربوطا باجراء معين.

[Sajad]

[COLOR="#A52A2A"]السلام عليكم

اولا اضف Timer وغير خاصية الEnabled الى True ومن ثم اكتب هذا الكود في اداة الTimer

PHP كود :

ProgressBar1.Value += 1
        If (ProgressBar1.Value > 50) Then
            Timer1.Stop()
        Else
            Label1.Text = ProgressBar1.Value.ToString()
        End If 


بالتوفيق ان شاءالله[/COLOR]

[مبتدئ]

شكرآ جزلآ جزاكم الله خير

[just.coder]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Maximum = 150
        ProgressBar1.Minimum = 0

        For i As Integer = 0 To ProgressBar1.Maximum
            ProgressBar1.Value = ProgressBar1.Value + 1
            If ProgressBar1.Value > 50 Then
                TextBox1.Text = i
                Exit For
            Else
                TextBox1.Text = i
            End If
        Next
    End Sub