در این بخش یه ترفند VB براتون میذارم.



For x=0 to 10000000000000

.

.

.

next

شاید شما هم دیده باشید که اگه توی VB یه حلقه ی بزرگ رو بذارین هنگ میکنه و Not Responding میده برای حل این مشکل چندین راه وجود داره که هر کدوم یه سری مشکلات دارن:

1-استفاده از تایمر به جای حلقه,مشکل:سرعت تایمر خیلی پایین تر از حلقه است.ولی به هیچ وجه هنگ نمیکنه.

2-استفاده از Thread,مشکل:یادگرفتن و نوشتنش خیلی سخته.

3-استفاده از کلک:این روش فکر کنم بهترین روشه.همیشه کلک زدن جواب میده!!!!

حالا این کلک رو توضیح میدم:

خیلی آسونه کافیه در حلقه ی خود این کد رو وارد کنید.

Application.DoEvents

 و تمام ...

حلقه قفل نمیکنه و شما تا پایان کار حلقه میتونین از برنامه استفاده کنید.

امیدوارم خوشتون اومده باشه.