Visualisasi Mengklik Tombol dari Coding

Membuat suatu tombol kelihatan diklik/ditekan melalui coding.

LAngkah2:
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 3Commandbutton.
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.

Code:

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

Tinggalkan komentar

Belum ada komentar.

Comments RSS TrackBack Identifier URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s