20 November 2008

Visualisasi Mengklik Tombol dari Coding

Membuat suatu tombol kelihatan diklik/ditekan melalui coding.
Persiapan:

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 3
Commandbutton.
2. Ketik coding berikut ke dalam editor form dan module yang
bersangkutan.
Ketika Anda mengklik Command2, Command1 akan kelihatan
ditekan (masuk ke dalam).
Ketika Anda mengklik Command3, Command1 akan kelihatan
normal kembali.

Ketikkan coding berikut ini pada Modul.

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal
wParam As Long, lParam As Any) As Long
Public Const BM_SETSTATE = &HF3
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202

Ketikkan Coding berikut ini pada Form.
Private Sub Command2_Click() 'Command1 kelihatan masuk
‘ke dalam (ditekan)
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, _ByVal 0&)
End Sub

Private Sub Command3_Click() 'Command1 normal kembali.
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, _ByVal 0&)
End Sub

Selamat mencoba dan berkreasi dengan ide kamu...

Tidak ada komentar: