在vb里怎样实现鼠标右键的弹出菜单功能?

Question

Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim hMenu As Long
Private Sub Form_Load()
    
    hMenu = CreatePopupMenu()
    
    AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"
    AppendMenu hMenu, MF_GRAYED Or MF_DISABLED, ByVal 0&, "Testing ..."
    AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
    AppendMenu hMenu, MF_CHECKED, ByVal 0&, "TrackPopupMenu"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim Pt As POINTAPI
    
    GetCursorPos Pt
    If Button = 2 Then
        
        TrackPopupMenu hMenu, TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&
   
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    
    DestroyMenu hMenu
End Sub

Answer 1

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
        PopupMenu hMenu, , x, y
  
    End If
End Sub

Answer 2

调用PopupMenu方法就可以：
[窗体名.]PopupMenu  子菜单命令对象名称在窗体上单击鼠标右键,在光标处出现的一个弹出式菜单。需先创建一个窗体，包含一个为 mnuFile（mnuFile 必需至少有一个 submenu）的 Menu 控件Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Button = 2 Then    '表示按下鼠标右键
     PopupMenu mnuFile
End IfEnd Sub

Answer 3

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5025
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6630
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   6630
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu aaaaa 
      Caption         =   "aaaaa"
      Begin VB.Menu ddd 
         Caption         =   "ddd"
         Index           =   1
         Begin VB.Menu a2222 
            Caption         =   "a2222"
            Index           =   2
         End
         Begin VB.Menu aaaa 
            Caption         =   "1111"
            Index           =   3
         End
         Begin VB.Menu aaaa 
            Caption         =   "aaaa"
            Index           =   4
         End
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_MouseUp(Button As Integer, Shift As _
   Integer, X As Single, Y As Single)
   If Button = 2 Then   '   检查是否单击了鼠标右键。
      PopupMenu aaaaa   '   把文件菜单显示为一个弹出式菜单。
   End If
End Sub

Answer 4

在菜单编辑其中编辑一个菜单然后选择不可视
在响应鼠标右建的事件中加入
popupmenu 刚才写的菜单名字

Answer 5

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu yourMenuName
    End If
End Sub