View Full Version : سوال: فاصله ی زمانی بین اجرای دستورات!
علیرضا.ا
یک شنبه 10 شهریور 1392, 00:29 صبح
سلام
چجوری باید بین اجرای دستورات فاصله ی زمانی گذاشت؟
مثلا در کد زیر:
Private Sub Command1_Click()
label1.Caption = "A"
label2.Caption = "B"
End Sub
با زدن command1 بلافاصله A ظاهر بشه و پس از گذشت مثلا 5 ثانیه B ظاهر بشه!
ممنون
ho3ein.3ven
یک شنبه 10 شهریور 1392, 00:42 صبح
سلام . از تایمر استفاده کن
mmssoft
یک شنبه 10 شهریور 1392, 00:47 صبح
سلام . از تایمر استفاده کن
درسته، به این شکل :
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 5000
End Sub
Private Sub Command1_Click()
Label1.Caption = "A"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label2.Caption = "B"
Timer1.Enabled = False
End Sub
niksalehi
یک شنبه 10 شهریور 1392, 01:08 صبح
سلام!
Sub Pause(interval)
Dim TM
TM = Timer
Do While Timer - TM < Val(interval)
DoEvents
Loop
End Sub
اینطوری استفاده میشه:
Private Sub Command1_Click()
label1.Caption = "A"
pause 5
label2.Caption = "B"
End Sub
مهرداد صفا
دوشنبه 11 شهریور 1392, 23:21 عصر
با سلام.
از تابع Sleep (http://msdn.microsoft.com/en-us/library/windows/desktop/ms686298%28v=vs.85%29.aspx) استفاده کنید.
مثال:
Private declare sub Sleep lib "kernel32" (ByVal Milliseconds as long)
'....
'..
private sub Button_click()
Sleep 5000
MsgBox "5 seconds later!"
end sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.