VB6右键弹出菜单

2021/11/10·更新于 2024/11/4

因为古老语言，网上越来越小相关资料，中文搜索相关内容越来越少，故止新开一版块，专为编程而生。

1Private Sub list1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'List1为组件名称
2If Button And vbRightButton Then   '弹菜单,判断名称
3    PopupMenu list '弹出（添加）菜单栏的名称,必须有子菜单才能正确使用
4    End If
5End Sub