تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال فى اللوب
#1
النسبة للوب Do While كيف يكون الأمر بتكرار اللوب لحين الضغط على زر معين(الزرCommand2 مثلآ)
[HTML]

Do While.........


Loop
[/HTML]
ولكم ألف شكر
الرد }}}
تم الشكر بواسطة:
#2
اخي الكريم انظر للموضوع هذا الذي شرحه ولد رائع وان شاء الله راح تستفيد

http://vb4arb.com/vb/showthread.php?3582...-%E6-while
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم...

1. قم بتعريف متغير في قسم التصريحات العام. مثلاً:
كود :
Private Continue As Boolean

2. كود الحلقة يكون كالتالي:
كود :
Continue = True
Do While Continue
    ' جملة برمجية
    ' جملة برمجية
    ' ... إلخ
    DoEvents
Loop

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

3. في زر الإيقاف، مثلاً Command2:
كود :
Continue = False

4. نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#4
عاد الأستاذ الكبير/[SIZE=5]ناجى ابراهيم والحمد لله
بارك الله فيه
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#5
هذا مثال كامل ان شاء الله تستفيد منه

PHP كود :
Option Explicit

Dim lCounter 
As Boolean
Dim Stopped 
As Boolean


Private Sub Command1_Click()
Text1.Text 0
Stopped 
False


For lCounter Val(Text1To 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 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم