کنترل حلقه For از خارج حلقه

[mamad_Datcom]

سلام دوستان
چطور میشه یه حلقه (For) رو از خارج از حلقه کنترل کرد. :متفکر:

ببینید، من یه Button روی فرمم دارم که وقتی روش کلیک میکنم حلقه داخلش شروع به کار میکنه.
حالا میخوام وقتی روی یه Button دیگه کلیک میکنم، حلقه متوقف بشه، و یا کلا از حلقه خارج بشه.

Thanks :لبخندساده:

[mpmsoft]

برای این منظور باید یک متغیر بصورت Private تعریف کنید و در روتین Button2_Click اون متغیر رو مقدارشو عوض کنید
و زمانی که حلقه داره اجرا می شه یک دستور شرطی بذارید که اگر مقدار اون متغیر عوض شد از حلقه توسط دستور Exit For خارج بشه

[far9090]

مثلا یک همچین چیزی میشه .
Dim cancel As Boolean
Private Sub Command1_Click()
For i = 1 To 100
If cancel = False Then
'do some things
Else
Exit For
End If
Next i
End Sub

Private Sub Command2_Click()
cancel = True
End Sub