Etiketler - pause

Etiketler

Yazar: accessman - Cevaplar: 1 - İzleme: 1662

uyumak isteyenler için

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 Sub

Etiketler

Yazar: accessman - Cevaplar: 1 - İzleme: 1662 Pause your Application
uyumak isteyenler için 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 Sub`