ادامه زیر برنامه با کلیک کردن ماوس

[alinaghiha]

میخوام وسط زیر برنامه منتظر کلیک کردن کاربر بمونم بعدش با کلیک کاربر کار ادامه پیدا کنه


for i=1 to 50
دستورات

Wait for click
ادامه دستورات


next i


راهی داره
اگه میشه راهنمایی کنید ممنون می شم

[amirsajjadi]

با سلام
ببین این کد بدردت میخوره
من با این که کد رو خودم نوشتم ولی زیاد ازش خوشم نیومد حالا روش کار میکنم اگه چیز جدیدتری پیدا کردم حتما میزارم

Dim th As Threading.Thread
Dim bool AsBoolean
PrivateSub Click_Start()
Dim i AsInteger = 1
While i <= 20
If i = 5 Then bool = False
If bool = TrueThen
MsgBox(i)
'Program
Else
ContinueWhile
EndIf
i += 1
EndWhile
th.Abort()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bool = True
EndSub
PrivateSub Form1_FormClosing(ByVal sender AsObject, ByVal e As System.Windows.Forms.FormClosingEventArgs) HandlesMe.FormClosing
th.Abort()
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
bool = True
th = New Threading.Thread(AddressOf Click_Start)
th.Start()
EndSub

[alinaghiha]

ممنون اینم خوب بود
کارت درسته
آیا اجرا و کار کردن با نخ به سایر برنامه ها آسیبی نمی رسونه و کار سیستم عامل منظورم زمانبندیه رو بهم نمی زنه
میشه نمونه های دیگری تو این زمینه ارائه کنی برام جالب بود

[amirsajjadi]

نه هیچ موردی برای سیستم عامل پیش نمیاد