منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل هذا الكود (/showthread.php?tid=7998)

تعديل هذا الكود - مبتدئ - 16-03-13

كود :
Dim i As New Integer
        If ProgressBar1.Value = i < 50AndAlso i > 0 Then
            Label1.Text = i
        End If
اريد من الكود ان يكتب رقم value من 1 الى 50

تعديل هذا الكود - سعود - 16-03-13

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

تعديل هذا الكود - Sajad - 16-03-13

[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]

تعديل هذا الكود - مبتدئ - 16-03-13

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

تعديل هذا الكود - just.coder - 18-03-13

كود :
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