Command Button menggunakan Visual Basic
Artikel saya yang berjudul Visualisasi Mengklik Tombol dari Coding mendapat respon dari pengunjung yang menginginkan bagaimana jika sebuah tombol dapat bertindak seperti tombol stop-kontak lampu. Jika belum ditekan, maka tombol akan kelihatan masuk ke dalam, dan ketika ditekan sekali lagi, tombolnya akan keluar (normal kembali). Demikian seterusnya bergantian. Mau tahu code-nya seperti apa? Simak selengkapnya berikut ini.
Deskripsi:
Membuat sebuah tombol kelihatan ditekan ke dalam saat
Ditekan sama seperti jika Anda menekan tombol stop-kontak
lampu di rumah;
maka tombol akan kelihatan masuk ke dalam, kemudian ketika
Anda
menekan sekali lagi, maka tombol akan kembali normal
kembali...
demikian seterusnya secara bergantian untuk penekanan
berikutnya.
Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan
1 Commandbutton.
2. Copy-kan code berikut ke dalam editor form & module
Tsb.
Kode::
|
'Ketika Anda mengklik Command1 pertama kali, maka tombol kelihatan masuk ke dalam.
'Ketika Anda mengklik Command1 selanjutnya, tombol akan kelihatan normal kembali.
'Demikian seterusnya bergantian... :-)
'Pengertian "klik" di atas tidak hanya event Click saja, tapi bisa dengan
'menekan Enter atau tombol Spasi di keyboard saat tombol dalam keadaan focus.
'--- Code ini untuk Di Module ---‘
Public 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
'--- Akhir Dari Code Module ---‘
'--- Code ini untuk Form.. ---‘
Dim blnTekan As Boolean
Private Sub Command1_Click()
If blnTekan = False Then
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)
blnTekan = True
Exit Sub
ElseIf blnTekan = True Then
blnTekan = False
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)
End If
End Sub
'--- Akhir Dari Code Form ---‘
|