PDA

View Full Version : سوال: فرمان delay



iman.moghaddam
پنج شنبه 04 فروردین 1390, 19:46 عصر
با سلام به شما دوست عزیز میخوام بدونم با چه فرمانی میشه تاخیر برای اجرای یک دستور داشت مثلا چهار تا شی pictureرنگ fillcolorبا یک تاخیر زمانی مشخص به ترتیب عوض شود. می خوام در یک مجوعه مثلا صد تایی از این اشیا چهار تا چهار تا از این اشیا به ترتیب مثلا روشن و خاموش شود ( مثلا در مورد رنگ قرمز و آبی) بطوریکه شی پنجم روشن و شی اول خاموش شود
با تشکر از شما دوست عزیز

javadt
پنج شنبه 04 فروردین 1390, 21:41 عصر
با استفاده از كد زير
فقط كافي تايم كه نياز به تاخير داريد رو به ميلي ثانيه وارد كنيد
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Sleep (1000)
MsgBox "ok"
End Sub

محسن واژدی
جمعه 05 فروردین 1390, 14:59 عصر
سلام
راحت ترین راه استفاده از کنترل timer وی بی هست، که با تنظیم interval آن قابل انجام است
البته دستور پیشنهاد شده آقای javadt هم همین کار رو انجام میدهد فقط تنها مشکلی که هست تا سپری شدن میلی ثانیه تعیین شده، برنامه متوقف میشود
که این میتواند برای کاربر خسته کننده باشد

موفق باشد