[اسلام الكبابى]

النسبة للوب Do While كيف يكون الأمر بتكرار اللوب لحين الضغط على زر معين(الزرCommand2 مثلآ)
[HTML]

Do While.........


Loop
[/HTML]
ولكم ألف شكر

[the viper]

اخي الكريم انظر للموضوع هذا الذي شرحه ولد رائع وان شاء الله راح تستفيد

http://vb4arb.com/vb/showthread.php?3582...-%E6-while

[ناجي إبراهيم]

السلام عليكم...

1. قم بتعريف متغير في قسم التصريحات العام. مثلاً:

كود :

Private Continue As Boolean

2. كود الحلقة يكون كالتالي:

كود :

Continue = True
Do While Continue
    ' جملة برمجية
    ' جملة برمجية
    ' ... إلخ
    DoEvents
Loop

* جملة DoEvents مهمة جداً.

3. في زر الإيقاف، مثلاً Command2:

كود :

Continue = False

4. نرجو الاستفادة و السلام.

[اسلام الكبابى]

عاد الأستاذ الكبير/[SIZE=5]ناجى ابراهيم والحمد لله
بارك الله فيه[/SIZE]

[ولد رائع]

هذا مثال كامل ان شاء الله تستفيد منه

PHP كود :

Option Explicit

Dim lCounter As Boolean
Dim Stopped As Boolean


Private Sub Command1_Click()
Text1.Text = 0
Stopped = False


For lCounter = Val(Text1) To 32767
    Text1.Refresh

     Text1 = lCounter
    
  
    DoEvents
   If Stopped = True Then Exit For
   
Next
End Sub

Private Sub Command2_Click()
 Stopped = True
Text1 = 0

End Sub

Private Sub Command3_Click()
Stopped = True