vb如何模拟鼠标右键点击弹出xp菜单

Question

   我想要的是这样的，用鼠标左键点击一下我的一个按钮，再用鼠标左键点击文件夹或者是文件或者是磁盘，然后就像是用鼠标右键直接点击在了文件（文件）上面一样，弹出菜单，包括打开，复制，剪贴，删除之类的
   如果有代码更好。谢谢

Answer 1

编辑好菜单后将菜单的“可见”去掉勾
在窗体代码的鼠标右键代码中添加
窗体.mpopupmenu  菜单名
就会显示弹出菜单

Answer 2

Private Sub oLblDisplay_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Call Pop_menu
    End If
    
End SubPrivate Sub Pop_menu()
    Me.PopupMenu mnuMain
    
End Sub

Answer 3

他是要替换掉Windows系统菜单吧

Answer 4

Option Explicit 
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, lprc As RECT) As Long 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 
Private Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long, ByVal bRevert As Long) As Long 
Private Type RECT 
        Left As Long 
        Top As Long 
        Right As Long 
        Bottom As Long 
End Type 
Private Type POINTAPI 
        X As Long 
        Y As Long 
End Type Public Sub ShowSystemMenu(Hwnd As Long) 
On Error Resume Next 
    Dim r As RECT 
    Dim p As POINTAPI 
        GetCursorPos p 
        TrackPopupMenu GetSystemMenu(Hwnd, 0&), 0, p.X, p.Y, 0, Hwnd, r 
End Sub 
窗口代码如下: 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 2 Then Call ShowSystemMenu(Me.Hwnd) 
End Sub 

Answer 5

把ShowSystemMenu(Me.Hwnd) 放到按钮的Click事件中

Answer 6

'交换鼠标左右键
'     API函数SwapMouseButton可以很简单的实现鼠标左右键的交换.请看下例
'>>步骤1----建立新工程,在窗体上放置两个CommandButton按钮.
'>>步骤2----添加如下代码:
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As LongPrivate Sub Command1_Click()
    SwapMouseButton 1
End SubPrivate Sub Command2_Click()
    SwapMouseButton 0
End Sub
'>>步骤3----编译运行,点击Command1和Command2,看看鼠标键的交换情况

Answer 7

  是有些麻烦，不过我在别的程序里看到可以实现这个，哪个是用c#.net写的。我想实现的是使用过一次鼠标右键后，即切换为正常的，要不会影响机器上程序的使用

Answer 8

根据你触摸屏的特点，只用一个键
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As LongPrivate Sub Command1_Click()
    SwapMouseButton 1  '切换
End SubPrivate Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    SwapMouseButton 0   '恢复
    
End Sub

Answer 9

  老大，这个不行啊，我的程序只是起一个辅助的功能，机器的程序要用左键的点击事件，所以我想用过一次右键后就切换，要不正常生产的程序都不能使用了，我觉得使用timer控件检测窗体外的鼠标点击事件应该可以，现在正在看呢，但是网上找了几段代码都不行。

Answer 10

终于搞定了，用了jhone99的代码和下面的代码，非常感谢各位，特别谢谢jhone99
 http://useway.blog.51cto.com/736087/176913
具体代码就不放上来了，就是用全局鼠标钩子监测到有鼠标的点击事件即切换左右键为正常的。