vb点虐 单击弹出菜单 vb点击菜单弹出窗口
vb 点虐 中怎么做出Excel中的弹出式菜单?请看附档图片,谢谢!
添加工具栏
创新互联建站服务项目包括阳江网站建设、阳江网站制作、阳江网页制作以及阳江网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,阳江网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到阳江省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
添加弹出菜单
打上名称 如果想加上 下划线 快捷功能 以+字符 就可以了
eg 文件(F)
设置图标 完成
VB6.0 如何实现点击按钮弹出下拉菜单
这个是弹出菜单,菜单在窗体上不显示,单击右键时弹出,所以需要将所有菜单做成子菜单。
1、先在VB里打开菜单编辑器(在窗体显示的情况下,在工具菜单里点“菜单编辑器"
2、新建菜单:(1)先做一个总菜单项,标题中填写”弹出",名称中填写mymenu,该菜单项是不显示的,用来弹出。(2)做如图子菜单,标题中填写菜单中显示的内容,比如:排列图标,刷新等等,名称内输入你自定义的名称,比如:排列图标的名称mnu_pailie,名称用来在编写代码时识别该菜单。横线在VB中标题内输入减号(-),名称也需要输入。(3)下级菜单(如排列图标有下级菜单),用向右的箭头调整
只要是标题和名称输入好了,就是合法的。其它不符合要求可以慢慢修改,不影响你条试验。
3、编写代码:
Private Sub Form_Load()
mymenu.Visible = False‘mymenu是要弹出总菜单的名称,在窗体上禁止显示,当然,你也可以让它显示
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)’窗体的鼠标按键抬起事件,当鼠标按键向上抬起时发生
If Button = vbRightButton Then‘button参数是按键,如果抬起的是鼠标右键时
Me.PopupMenu mymenu’弹出mymenu
End If
End Sub
vb 问题 如何建立一个 弹出式菜单
1、首先,需要点击菜单栏中的工具按钮。
2、点击完工具按钮之后,然后我们点击菜单编辑器。
3、除了点击菜单编辑器,我们也可以记住他的快捷键。
4、此时,便可以看到菜单编辑器页面。
5、还可以在这里设置快捷键。
6、或者便可以开始输入名称和系统名称。
vb点虐 关于左键点击弹出菜单的问题
控件.ContextMenuStrip=ContextMenuStrip1;
c#是这么写的,弹出菜单相对鼠标是一个位置.
vb应该也一样.
你目前的办法是自己控制弹出菜单显示的位置,但是你的坐标没有控制好,注意世界坐标和控件坐标的区别,做个相应的转换,还是可以实现的.
名称栏目:vb点虐 单击弹出菜单 vb点击菜单弹出窗口
本文URL:http://pwwzsj.com/article/ddioegd.html