14-02-13, 08:51 PM
النسبة للوب Do While كيف يكون الأمر بتكرار اللوب لحين الضغط على زر معين(الزرCommand2 مثلآ)
[HTML]
Do While.........
Loop
[/HTML]
ولكم ألف شكر
[HTML]
Do While.........
Loop
[/HTML]
ولكم ألف شكر
14-02-13, 08:51 PM
14-02-13, 11:46 PM
اخي الكريم انظر للموضوع هذا الذي شرحه ولد رائع وان شاء الله راح تستفيد
http://vb4arb.com/vb/showthread.php?3582...-%E6-while
http://vb4arb.com/vb/showthread.php?3582...-%E6-while
15-02-13, 01:15 AM
السلام عليكم...
1. قم بتعريف متغير في قسم التصريحات العام. مثلاً:
2. كود الحلقة يكون كالتالي:
* جملة DoEvents مهمة جداً.
3. في زر الإيقاف، مثلاً Command2:
4. نرجو الاستفادة و السلام.
1. قم بتعريف متغير في قسم التصريحات العام. مثلاً:
كود :
Private Continue As Boolean2. كود الحلقة يكون كالتالي:
كود :
Continue = True
Do While Continue
' جملة برمجية
' جملة برمجية
' ... إلخ
DoEvents
Loop* جملة DoEvents مهمة جداً.
3. في زر الإيقاف، مثلاً Command2:
كود :
Continue = False4. نرجو الاستفادة و السلام.
15-02-13, 02:05 AM
عاد الأستاذ الكبير/[SIZE=5]ناجى ابراهيم والحمد لله
بارك الله فيه[/SIZE]
بارك الله فيه[/SIZE]
18-02-13, 11:19 PM
هذا مثال كامل ان شاء الله تستفيد منه
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