کلیک روی کامند بعد از مدت معین

[niksalehi]

سلام دوستان!
میخواستم بدونم چطوری میتونم کدی بنویسم که اگه روی کامند 1 کلیک شد، 5 ثانیه بعدش call command2_click اجرا بشه!؟ ممنونم:قلب:

[سید حمید حق پرست]

سلام
با تایمر این کارو انجام بدید

موفق باشید


یا علی (ع)

[بهروز عباسی]

یه timer با interval 1000 غیرفعال
باکلیک روی cmd1 اجرابشه هر ثانیه به یه متغیر شمارنده یکی اضافه با شرط چک کن اگه 5 بود...

[بهروز عباسی]

کدشم گذاشتم:

Dim int_Count As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
MsgBox "Hello !"
End Sub
Private Sub Form_Load()
int_Count = 0
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
int_Count = int_Count + 1
If int_Count = 5 Then
Command2_Click
int_Count = 0
Timer1.Enabled = False
End If
End Sub

[سید حمید حق پرست]

با دو خط کد هم میشه اینکارو کرد . الان که ویبی ندارم مشکل حل شد مینویسم

موفق باشید

یا علی (ع)

[سید حمید حق پرست]

بفرما دوست عزیز

موفق باشید

یا علی (ع)

[بهروز عباسی]

با دو خط کد هم میشه اینکارو کرد . الان که ویبی ندارم مشکل حل شد مینویسم

موفق باشید

یا علی (ع)

حق با شما کمی شلوغه ولی این شلوغی به خاطر اینکه کاملاً متوجه بشن
و مثلاً اگه خواستن 5 ثانیه بشه 10 گمراه نشن همین

ممنون:کف:

[MohammadGh2011]

سلام دوستان!
میخواستم بدونم چطوری میتونم کدی بنویسم که اگه روی کامند 1 کلیک شد، 5 ثانیه بعدش call command2_click اجرا بشه!؟ ممنونم:قلب:
سلام عليکم
با روش زير هم ميشه اين کار رو انجام داد:
يک تايمر با اينتروال 5000 روي فرمتون اضافه کنيد و Enable اون تايمر رو هم برابر با False قرار بديد.داخل تايمر هم کد Command2_Click رو بنويسيد.
دو تا کامند باتن هم بياريد .داخل کامند اول کد Timer1.Enabled = True رو بنويسيد و داخل کامند دوم کدهايي که ميخوايد اجرا بشه رو بنويسيد.

موفق باشيد

[سید حمید حق پرست]

سلام عليکم
با روش زير هم ميشه اين کار رو انجام داد:
يک تايمر با اينتروال 5000 روي فرمتون اضافه کنيد و Enable اون تايمر رو هم برابر با False قرار بديد.داخل تايمر هم کد Command2_Click رو بنويسيد.
دو تا کامند باتن هم بياريد .داخل کامند اول کد Timer1.Enabled = True رو بنويسيد و داخل کامند دوم کدهايي که ميخوايد اجرا بشه رو بنويسيد.

موفق باشيد

سلام دوست عزیز
اگه توجه کنید منم بالاتر سورس اینرو گذاشتم

موفق باشید


یا علی (ع)

[MohammadGh2011]

سلام دوست عزیز
اگه توجه کنید منم بالاتر سورس اینرو گذاشتم

موفق باشید

یا علی (ع)
سلام عليکم
من سورس شما رو نگاه نکردم.

موفق باشيد