Cara Wait Sleep VB6 - ok maksud dari sleep di sini adalah di beri waktu senggang untuk masuk ke codingan berikut nya atau islah lain nya kaya di freeze gitu.
lihat contoh codingan di bawah. biasa nya kalo kita langsung tekan tombol command nya langsung muncul msgbox tapi berhubung di kasih function sleep maka msgbox akan muncul sesuai dengan waktu yang akan di tentukan
Private Sub Sleep(ByVal HowLong As Date)
Dim endDate As Date
endDate = DateAdd("s", HowLong, Now)
While endDate > Now
DoEvents
Wend
End Sub
Private Sub Command1_Click()
Sleep 4
MsgBox " contoh sleep taufik "
End Sub
Jika ingin mencobanya silahkan download programnya
Mediafire || 4shared
0 Komentar:
Posting Komentar