16-03-13, 07:45 PM
كود :
Dim i As New Integer
If ProgressBar1.Value = i < 50AndAlso i > 0 Then
Label1.Text = i
End If16-03-13, 07:45 PM
16-03-13, 07:52 PM
استخدم For اذا لم يكن مربوطا باجراء معين.
16-03-13, 08:09 PM
[COLOR="#A52A2A"]السلام عليكم
اولا اضف Timer وغير خاصية الEnabled الى True ومن ثم اكتب هذا الكود في اداة الTimer
بالتوفيق ان شاءالله[/COLOR]
اولا اضف Timer وغير خاصية الEnabled الى True ومن ثم اكتب هذا الكود في اداة الTimer
PHP كود :
ProgressBar1.Value += 1
If (ProgressBar1.Value > 50) Then
Timer1.Stop()
Else
Label1.Text = ProgressBar1.Value.ToString()
End If
بالتوفيق ان شاءالله[/COLOR]
16-03-13, 11:46 PM
شكرآ جزلآ جزاكم الله خير
18-03-13, 02:46 PM
كود :
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