Mohon Maaf Kenyamanan Anda terganggu karena blog Kami sedang proses upload terbaru dan perbaikan file data..... Selamat Datang di Blog Sederhana Batangmuar Group...!!! Semoga dengan Adanya Blog ini hendaknya bisa berbagi baik pengetahuan maupun pengalaman. Jika terdapat kekurangan dan kekeliruan pada Blog ini mohon dimaafkan karena semata-mata bukan disengaja. Yang membutuhkan bantuan Silahkan Hub Admin 085263403330
Mohon Maaf Sebelumnya...!

Bila didalam blog ini terdapat Content atau iklan yang kurang berkenan. Gunaka versi desktop jika menggunakan android.
Kunjungi kaleng-boco.blogspot untuk Style dan File ter-Update
|| Terima kasih.....!!!||

Listing vb-Command Button


                           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 ---‘