软件工程

本类阅读TOP10
·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八)： CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
VB中无边框窗体实现弹出菜单

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

说来也简单
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运行，在窗体上点右键试试~~~~~~~~~~~~

 

相关文章：

相关软件：