Kod:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Kod:
Public Sub Wait(Seconds As Single)
Dim lMilliSeconds As Long
lMilliSeconds = Seconds * 1000
Sleep lMilliSeconds
End SubPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Public Sub Wait(Seconds As Single)
Dim lMilliSeconds As Long
lMilliSeconds = Seconds * 1000
Sleep lMilliSeconds
End Sub| Bu Konudaki Yorumlar |
|
Pause your Application - Yazar: accessman - 27/05/2012, 01:24
Cvp: Pause your Application - Yazar: accessman - 09/11/2012, 16:34
|