آموزش فاصله انداختن بین اجرای دستورات

[Kazem Forghani 2,928]

سلام

شاید خواسته باشید بین اجرای دو دستور فاصله بیاندازید. به عنوان مثال بخواهید ابتدا متن Button1 را abc کنید و بعد از 5 ثانیه متن Button2 را 123 کنید.

برای این عمل ساب زیر را به پروژه اضافه کنید:

Sub Wait(MilliSecond As Int)
	Dim Time As Long
	Time = DateTime.Now + MilliSecond
	Do While DateTime.Now < Time
		DoEvents
	Loop
End Sub

ساب بالا یک پارامتر دارد که باید مقدار فاصله ای که قرار است بین دو دستور بیفتد را بنویسید. (واحد میلی ثانیه 1 ثانیه = 1000 میلی ثانیه)

یک مثال:

Button1.Text = "abc"
Wait(5000)
Button2.Text = "123"

موفق باشید