vb6 右键弹出菜单

[不指定 2021/11/10 17:37 | by admin ]
前言：因为古老语言，网上越来越小相关资料，中文搜索相关内容越来越少，故止新开一版块，专为编程而生。
Private Sub list1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'List1为组件名称
If Button And vbRightButton Then   '弹菜单,判断名称
    PopupMenu list '弹出（添加）菜单栏的名称,必须有子菜单才能正确使用
    End If
End Sub


版块建立时间：2021/11/10
VB6编程 | 评论(0) | 引用(0) | 阅读(2651)
分页： 3/3 第一页 上页 1 2 3 最后页 [ 显示模式： 摘要 | 列表 ]