Cara Menampilkan/Menambahkan Popup Menu VB6

Berikut ini adalah cara menampilkan/menambahkan menu popup di textbox. Jika Anda mengklik kanan mouse Anda di textbox, maka akan muncul suatu menu secara pop-up di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Textbox, & 1 Menu.
2. Beri nama menu tersebut dengan MyMenu, dan menu ini sedikitnya harus terdiri atas 1 sub menu.
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Private Const WM_RBUTTONDOWN = &H204
          Private 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 Sub OpenContextMenu(FormName As Form, MenuName As Menu)
            Call SendMessage(FormName.hwnd, WM_RBUTTONDOWN, 0, 0&)
            FormName.PopupMenu MenuName
          End Sub

          Private Sub Form_Load()
            MyMenu.Visible = False  'Agar tdk kelihatan di bagian atas form
          End Sub

          Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
            'Ganti 'MyMenu' dengan menu yang Anda inginkan tampil secara pop up.
            If Button = vbRightButton Then Call OpenContextMenu(Me, Me.MyMenu)
          End Sub

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