02-13-2014، 04:00 PM
(02-13-2014، 01:47 PM)'Amin_Mansouri' نوشته: [ -> ]من کدتو ندیدممرسی امین جان میشه واسم یه سمپل بزاری
میتونی از کد زیر :
Sub Wait(MilliSekunden As Int)
Dim Ti As Long
Ti = DateTime.Now + MilliSekunden
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub
یه وقفه وقتی از دیتابیس داری get میکنی بنداز
وگرنه همه با هم بخوای get کنی و بخونی معلومه که هنگ میکنه
متشکرم