Menekan CommandButton Melalui Coding VB6

Berikut ini adalah cara menekan commandbutton melalui coding di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 3 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form & module yang bertalian.

          'Ketika Anda mengklik Command2, Command1 akan kelihatan ditekan (masuk ke dalam).

          'Ketika Anda mengklik Command3, Command1 akan kelihatan normal kembali.

          '--- Coding ini di Module...
          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 coding di Module...

          '--- Coding ini di 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
          '--- Akhir coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module