تقييم الموضوع :
  • 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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 258 03-11-16, 11:54 PM
آخر رد: الاصيله
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 193 28-07-16, 11:51 PM
آخر رد: استايل
  [vb6.0] سؤال عن طريق ربط الفيجوال بقاعدة عمور2016 2 132 02-07-16, 07:24 PM
آخر رد: عمور2016
  [vb6.0] سؤال حول اتجاه الارقام التصاعدية chaabane 4 142 07-06-16, 06:32 PM
آخر رد: chaabane
  سؤال : زر الطباعة في التقرير لا يعمل mh66 4 674 03-03-16, 10:59 AM
آخر رد: محمود العجيري
  [vb6.0] سؤال عن vb ضمن الاكسيل عبدالستار 2 247 21-01-16, 02:04 PM
آخر رد: الملاك الحزين
  (تم الحل) سؤال في الاكمال التلقائي (مهم ) awidan76 3 284 17-01-16, 01:16 PM
آخر رد: ahmedabdelaliem
  [vb6.0] سؤال عن المصفوفات chaabane 0 211 11-01-16, 12:52 PM
آخر رد: chaabane
  [سؤال] سؤال عن رسالة مزعجة chaabane 5 246 22-11-15, 12:20 AM
آخر رد: أبو عمر
  سؤال عن متصفح انترنت Alexander Max2 1 288 23-02-15, 04:44 PM
آخر رد: Top GreaT

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


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