وقتی که یک حلقه در حال کار است اگر بر روی دکمه ای یا بر روی خود فرم کلیک کنیم فرم قفل می شود و نیز Not Responding می شود
چطوری می شود که کاری کنیم که این اتفاق نیفته و نیز یک دکمه برای متوقف کردن آن درست کنیم
Printable View
وقتی که یک حلقه در حال کار است اگر بر روی دکمه ای یا بر روی خود فرم کلیک کنیم فرم قفل می شود و نیز Not Responding می شود
چطوری می شود که کاری کنیم که این اتفاق نیفته و نیز یک دکمه برای متوقف کردن آن درست کنیم
دو راه داری:
1- استفاده از Application.DoEvents در داخل حلقه .
توجه کنید که استفاده نابجا از این دستور میتونه نتایج عجیب و دور از انتظاری رو رقم بزنه. مخصوصا در صورتی که از رویه بخواین زودتر از موعد خارج بشین ، در این صورت ممکنه قبل از پایان یک روال، مجددا وارد آن روال شوید.
2- استفاده از Multi Threading
میشه یه مثال بزنید که بفهمم
کد:For i=1 To 100000000
Dim Str As String ="Test Loop"
Application.DoEvents
Next
بعد چطور میشه متوقفش کرد؟
اگه منظورت متوقف کردن حلقه است با Exit For .نقل قول: