Pages

Tuesday, September 20, 2011

Penggunaan DoEvents di VB

mungkin kebanyakan pada ga tau ya gunanya statement DoEvents di vb?
padahal kalau kita tes fungsi statement DoEvents di vb seperti ini:

Private Sub Command1_Click()
DoEvents
End Sub

ketika kita pencet CommandButton trus apa yang terjadi?
ya tentu ga terjadi apa2.. penggunaan statement DoEvents bukan disitu tempatnya
penggunaan statement DoEvents biasa digunakan pada statement perulangan
seperti: For..Next atau Do While ... Loop dan lain2
contoh:
tambahkan 1 buah Label1 dan Command Button
CODE
Private Sub Command1_Click()
Dim a As Long
Do Until a = &HFFFFFFFF
a = a + 1
Label1.Caption = a
DoEvents
Loop
End Sub
jadi fungsi DoEvents di vb ini memberi/mengijinkan user untuk tetap bisa berinteraksi dengan aplikasi kita saat code di eksekusi
seandainya statement DoEvent Dihilangkan Pasti aplikasi kalian Hang
coba aja kalo ga percaya!