VB 如何添加右键弹出菜单

右键窗体打开“菜单编辑器”

然后添加菜单

比如这样

菜单  名称为DeleteList

......删除  名称为DeleteListview

然后把一级菜单的“可见”选框取消，再把代码放进去即可

代码如下

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbRightButton Then PopupMenu DeleteList '这个位置PopupMenu后填写自己的菜单名，按下鼠标右键 显示菜单就ok了

End Sub