مرة اخرى رسالة لخبراء الفيجوال بيسيك.......

[العين كينج]

السلام عليكم لقد اولا شكرا للاخ M-006 و الاخ Vampire على الاجابة على سؤال LOOP ولكن المشكلة أني اريد ان راى الوب أي التكرار يحدث امامي في البرنامج……………مثال
Dim i As Integer (this in general)

Private Sub Command1_Click()
For i = 1 To 7
Text1.Text = i & vbNewLine
Next i

Label1.Caption = i

End Sub

اما الذي يظهر في label هو الرقم 8 وفي text هو الرقم 7 فقط……..
وانا اريد في text
1
2
3
4
5
6
7
هكذا فماذا افعل وشكرا…………….

[M-006]

لماذا لا تستعمل اداة Timer ؟

------------------
المعرفة قوة

[T_zone]

سلام ..
مضبوط .. لأنه في ال For
عندما تتعدى القيمه العدد ... ينتهي التكرار ..وتضل القيمه أكبر من الرقم ..
يمكن رأي M-006 أفضل .. لكن إن كنت مصرا علي ال Loop
إستخدم ال DO
أو أضف بعد next
i=i-1

بال DO

i=0
DO
i=i+1
,,,
,,,
loop until i=7
,,,

وهنا سيتوقف ال loop عند 7 .. بعد سبعة تكرارات ... وستظل القيمه النهائيه أيضا 7 ....
طبعا المفروض .. إنت جرب .

تحياتي لكم