نحوه خارج شدن از یک حلقه در حال اجرا توسط یک command

[meisam_r]

سلام
در برنامه ای نیاز است که از یک حلقه بینهایت توسط یک command خارج شوم یعنی ازsub مربوطه
اما زمانی که توسط یک commamd این کار را انجام می دهم برنامه هنگ می کند
لطفا در این زمینه مرا راهنمایی کنید
با تشکر

[m_maboodi]

شما می توانید در حلقه مورد نظرتان از دستور doevents استفاده کنید

[majidghost]

Dim E As Boolean
Private Sub Command1_Click()
E = True
End Sub
Private Sub Thread()
Do
DoEvents
'Codes Start Here
'Codes End Here
If E = True Then Exit Do
Loop
End Sub


امیدوارم مشکلتون حل شده باشه

[noorsoft]

شما باید یک متغییر را در رخداد کلید مقدار دهی کنید
و در شرط همان مقدار را چک کنید که اگه بر قرار بود حلقه تمام شود و این کار را با تمامی حلقه ها میتوان انجام داد

[benighted.boy]

فکر میکنم آقای majidghostهمه چیز رو کامل گفتن.این ساده ترین و به نظر من راحترین راهه.فقط یه نکته فکر میکنم اگه متغیر به صورت publicتعریف شه احتمال وقوع خطا به صفر برسه.