Perintah utama dalam menjalankan kondisi ini adalah menggunakan metode
Application.OnTime kode inilah yang kemudian dimasukkan dalam sebuah Module untuk berikutnya dijalankan.
contoh penggunaannya dalam sebuah module
Sub X ()
Application.OnTime Now + TimeValue ("00:00:05"), "Perintah_Lain"
End Sub
Application.Ontime :Application.OnTime Now + TimeValue ("00:00:05"), "Perintah_Lain"
End Sub
digunakan untuk menjalankan sebuah prosedur dalam waktu yang sudah kita spesifikasikan
TimeValue :
merupakan sebuah kondisi dimana perintah akan dijalankan, dalam contoh di atas perintah akan dijalankan dalam hitungan 05 detik
Perintah_Lain :
adalah sebuah prosedur (Module) lain yang akan dijalankan ketika waktu yang yang kita masukkan sedang terjadi.
Untuk membuat prosedur "perintah_lain" maka kita membuat sebuah module baru yang berisi perintah atau kode-kode tertentu yang kita inginkan.
sebagai contoh :
Sub Perintah_Lain()
UserForm1.Show
End Sub
Artinya, ketika pengguna menjalankan perintah Sub X - pengguna harus
menunggu sekitar 05 detik kemudian Sub Perintah_Lain akan dijalankan,
dalam contoh diatas yakni menampilkan UserForm1
UserForm1.Show
End Sub
Ilustrasi dalam menggunakan metode ini sebagai berikut
Tidak ada komentar:
Posting Komentar