vb中的弹出式菜单如何在程序中调用

为什么我用左键和右键都能用，无论行为常量是什么
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 4 Or 0
End If
End Sub
麻烦分析一下对不对
会不会是我的vb程序有问题，不行

建一个菜单 vbfile 子菜单vbright:
(右键点击窗体 就会弹出 vbfile下的几个子菜单了)
private sub form_load()
vbfile.visible = falseend subprivate sub form_mouseup(button as integer, shift as integer, x as single, y as single)
select case buttoncase 1print "点击了左键"case 2print "点击了右键"
popupmenu vbfileend selectend sub----------------------------
private sub text1_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then
popupmenu color, 4 or 0end ifend sub是对的。 建议改成mouseup事件，因为你看正常的弹出菜单 都是鼠标键弹起来出现的
才发现 你是想要把系统的右键弹出式菜单屏蔽吧
如下代码即可（把相应代码改成你想要的）

...... 不会啊 用MouseUp事件里的 Button参数 1表示左键 2表示右键 建一个菜单 vbFile 子菜单vbRight: (右键点击窗体 就会弹出 vbFile下的几个子菜单了) Private Sub Form_Load() vbFile.Visible = False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Button Case 1 Print "点击了左键" Case 2 Print "点击了右键" PopupMenu vbFile End Select End Sub ---------------------------- Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu color, 4 Or 0 End If End Sub 是对的。 建议改成MouseUp事件，因为你看正常的弹出菜单 都是鼠标键弹起来出现的 才发现 你是想要把系统的右键弹出式菜单屏蔽吧 如下代码即可（把相应代码改成你想要的） Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu color, 0 Or 4'左键所触发的内容 End If If Button = 2 Then'右键所触发的内容 Text1.Enabled = False Text1.Enabled = True PopupMenu color, 0 Or 4 End If End Sub