02-13-2014، 01:47 PM
(آخرین تغییر در ارسال: 02-13-2014، 01:50 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 کنی و بخونی معلومه که هنگ میکنه
میتونی از کد زیر :
Sub Wait(MilliSekunden As Int)
Dim Ti As Long
Ti = DateTime.Now + MilliSekunden
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub
یه وقفه وقتی از دیتابیس داری get میکنی بنداز
وگرنه همه با هم بخوای get کنی و بخونی معلومه که هنگ میکنه
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
