با سلام
من دو دکمه فرمان بر روی فرم دارم
با کلیک بر روی دکمه اول برنامه وارد یک حلقه میشود در اینجا دو سوال دارم:
1-چگونه میتوانم با کلیک بر روی دکمه دوم از حلقه دکمه اول خارج شوم؟
2-چگونه میتوانم حالت فوق را با زدن یک کلید کیبورد مثلا اسکیپ انجام دهم؟
با تشکر
خوب با توجه به اینکه یک حلقه یک سری دستورات خاص هست که تکرار می شود می توانی یک خط شرط به آن اضافه کنی که مثلا بازدن کلیدی یا فشرده شدن دکمه ای برنامه شما آن را چک کرده و از ادامه کار جلوگیری کند
'General
Dim Bl As Boolean
private Sub Command2_Click
Bl=True
End Sub
private Sub Command1_Click
Bl=False
Do While 1
.
.
.
If Bl Then Exit Do
.
.
.
Loop
End Sub
:mrgreen:
سلام بر دوستان جرامی = گرامی
در حلقه اگه یک DoEvents هم اضافه کنید، بد نیست.
خسته نباشید بچه ها.
البته بعضی مواقع DoEvents سرعت را پایین می آورد. :wink:
با سلام وتشکر از جواب شما
ولی درمورد این سوال مشکل من این است که زمانی که بر روی دکمه فرمان اول کلیک می کنم و برنامه وارد حلقه مربو طه میشود
دراین حالت فوکوس روی دکمه اول است و تا اتمام حلقه هیچ رویدادی از دکمه فرمان دوم دریافت نمی کند و من مجبورم برای اتمام برنامه
ctrl+break را بزنم
دوستان آیا راهی وجود دارد که من مشکلم را حل کنم؟
با تشکر
همانطور که Ruhollah عزیز گفتند شما باید از DoEvents استفاده کنید (در ابتدای حلقه)
این فرمان باعث میشه که در طی حلقه برنامه قادر به دریافت ورودی های کاربر باشه .
Do while i < 100
DoEvents
'Your code goes here !
Loop
با سلام حضور تما م دوستان که به من کمک کردند
آقا تابع doevents
معجزه کرد و خیلی جالب بود حال میتوانم همینکار را با فشر دن یک کلید مثلا esc انجام دهم
لطفا یک مثال بزنید با تشکر مجدد
با سلام
خودم راه حلش را پیدا کردم در این راه از یک تابع api استفاده کردم و به محض فشردن کلید esc از حلقه خارج می شوم اگر راه حل یا دستوری را می شناسید بگویید
'in General
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const KEY_ESCAPE = &H1B
()Private Sub Command1_Click
"Text1.Text = "press escape to quit
()Do While DoEvents
If GetAsyncKeyState(KEY_ESCAPE) Then
"Text1.Text = "Escape pressed
Exit Sub
End If
Loop
End Sub
:shock: :shock: :shock: :roll:
آفرین. :lol: :lol: :lol:
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول