VB中无边框窗体实现弹出菜单

页面导航:首页 > 软件编程 > vb.net > VB中无边框窗体实现弹出菜单

VB中无边框窗体实现弹出菜单

来源: 作者: 时间:2016-02-05 12:32 【

作者:Hehehe说来也简单1、设定窗体属性:A、BorderStyle属性设为0;B、ControlBox属性设为False。(这一点很重要,不

作者:He he he

说来也简单
1、设定窗体属性:
        A、BorderStyle属性设为0;
        B、ControlBox属性设为False。(这一点很重要,不然插入菜单后会出现边框)
2、编辑菜单
        利用菜单编辑器编辑弹出菜单(例:加S1为一级菜单,它的可见属性为不可见,加S2为二级菜单),如图
        
3、添加MouseUp事件,如下
        Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
                If Button = 2 Then           若右键释放,则弹出菜单
                        PopupMenu S1
                End If
        End Sub
4、搞定,按F5运行,在窗体上点右键试试

带一句POST时发现说VB的人很少,

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <