① 在VB中调用弹出式菜单应使用什么方法
用MouseUp事件里的
Button参数
1表示左键
2表示右键
建一个菜单
vbFile
子菜单vbRight:
(右键点击窗体
就会弹出
vbFile下的几个子菜单了)
Private
Sub
Form_Load()
vbFile.Visible
=
False
End
Sub
Private
Sub
Form_MouseUp(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Select
Case
Button
Case
1
Print
"点击了左键"
Case
2
Print
"点击了右键"
PopupMenu
vbFile
End
Select
End
Sub
----------------------------
Private
Sub
Text1_MouseDown(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
1
Then
PopupMenu
color,
4
Or
0
End
If
End
Sub
是对的。
建议改成MouseUp事件,因为你看正常的弹出菜单
都是鼠标键弹起来出现的
才发现
你是想要把系统的右键弹出式菜单屏蔽吧
如下代码即可(把相应代码改成你想要的)
Private
Sub
Text1_MouseUp(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
1
Then
PopupMenu
color,
0
Or
4'左键所触发的内容
End
If
If
Button
=
2
Then'右键所触发的内容
Text1.Enabled
=
False
Text1.Enabled
=
True
PopupMenu
color,
0
Or
4
End
If
End
Sub
② 如何用vb建立弹出菜单
PopupMenu 方法
用以在 MDIForm 或 Form 对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。不支持命名参数。
语法
object.PopupMenu menuname, flags, x, y, boldcommand
PopupMenu 方法的语法包含下列部分:
部分 描述
object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,则带有焦点的 Form 对象缺省为 object。
Menuname 必需的。要显示的弹出式菜单名。指定的菜单必须含有至少一个子菜单。
Flags 可选的。一个数值或常数,按照下列设置中的描述,用以指定弹出式菜单的位置和行为。
X 可选的。指定显示弹出式菜单的 x 坐标。如果该参数省略,则使用鼠标的坐标。
Y 可选的。指定显示弹出式菜单的 y 坐标。如果该参数省略,则使用鼠标的坐标。
boldcommand 可选的。指定弹出式菜单中的菜单控件的名字,用以显示其黑体正文标题。如果该参数省略,则弹出式菜单中没有以黑体字出现的控件。
设置值
用于 flag 的设置值有:
常数位置 值 描述
vbPopupMenuLeftAlign 0 (缺省值)。弹出式菜单的左边定位于 x。
vbPopupMenuCenterAlign 4 弹出式菜单的于 x 居中位。
vbPopupMenuRightAlign 8 弹出式菜单的右边定位于 x。
常数行为 值 描述
vbPopupMenuLeftButton 0 (缺省值)。 仅当使用鼠标左按钮时, 弹出式菜单中的项目才响应鼠标单击。
vbPopupMenuRightButton 2 不论使用鼠标右按钮还是左按钮, 弹出式菜单中的项目都响应鼠标单击。
说明
上述常数在对象浏览器中的 Visual Basic (VB) 对象库里列出。
可使用 ScaleMode 属性指定x和y坐标的度量单位。x 和 y 坐标定义弹出式菜单相对于指定窗体显示的位置。如果没有包括 x 和 y 坐标,则弹出式菜单就显示在鼠标指针当前的位置。
在显示弹出式菜单时,调用 PopupMenu 方法后面的代码直到用户或者从菜单中选择了命令(这时,该命令的 Click 事件的代码比 PopupMenu 语句后面的代码先执行)或者取消该菜单时才能执行。此外,每次只能显示一个弹出式菜单,因此,如果已经显示了一个弹出式菜单或打开了一个下拉式菜单时,该方法的其它调用将被忽略。
③ vb 问题 如何建立一个 弹出式菜单
1、首先,需要点击菜单栏中的工具按钮。
④ vb 弹出窗体
1.在"菜单编辑器窗口"中建立一个将要作为弹出式菜单的主菜单项,如你所说的,就是"编辑"主菜单项,此菜单项的标题为"编辑",名称为"edit",所包含的菜单项为"剪切","复制","粘贴".建立弹出式菜单所需的菜单后,可以把"编辑"的visible属性设置为false,也可以设置为true,关键看你需要.
2.为建立好的菜单编写程序代码,要显示弹出式菜单,可以使用popupmenu方法,大概代码如下:
private
sub
form_mouseup(button
as
integer,shift
as
integer,x
as
single,y
as
single)
if
button=2
then
'检查是否按下的是鼠标右键
popupmenu
edit
'edit是"编辑"菜单的控制名,将其激活显示在窗体上
end
if
end
sub
⑤ VB如何右键窗体弹出菜单
1.在"菜单编辑器窗口"中建立一个将要作为弹出式菜单的主菜单项,如你所说的,就是"编辑"主菜单项,此菜单项的标题为"编辑",名称为"EDIT",所包含的菜单项为"剪切","复制","粘贴".建立弹出式菜单所需的菜单后,可以把"编辑"的VISIBLE属性设置为FALSE,也可以设置为TRUE,关键看你需要.
2.为建立好的菜单编写程序代码,要显示弹出式菜单,可以使用POPUPMENU方法,大概代码如下:
Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as Single,Y as Single)
If Button=2 then '检查是否按下的是鼠标右键
PopUpMenu EDIT 'EDIT是"编辑"菜单的控制名,将其激活显示在窗体上
End If
End Sub
⑥ vb怎么实现点击鼠标右键出现菜单选项
方法1:编写菜单,然后利用菜单项的:Enabled属性或者Visible属性;
方法2:建立快捷菜单;右击出现菜单。
方法1的实现简单:
在创建菜单的时候,每个菜单项有1个”标题”和”名称”,其中名称其实是该菜单项的对象的名称,例如某菜单名称叫”abc”,那么:
abc.
Visible=false
就使它不可见
abc.
Visible=true
就使它可见
⑦ vb 右键弹出式菜单制作
弹出式菜单,首先要创建菜单对象。方法是,把你要弹出的菜单当成是一个正常展示在窗体顶部的菜单,使用菜单编辑器将它制作出来。比如:添加一个标题是“弹出菜单”名称是“menu1”的根菜单项,在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为弹出菜单的内容,内容你随意,这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后,便可以使用popupmenu方法来弹出菜单。方法是:
popupmenu
菜单对象名
继续上个例子,就是
popupmenu
menu1
这个方法后面还有很多可选参数,如协调位置等,这些待你自己慢慢研究,这里不细究。如果你的弹出菜单是通过按右键弹出的话,通常会把它放到mousedown事件中,继续上个例子,就是
private
sub
控件_mousedown(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
if
button
=
2
then
'如果点的是右键
popupmenu
menu1
end
if
end
sub
⑧ VB 中弹出式菜单怎么写
弹出式菜单名称为: a
写入:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu a
End Sub
还可以继续编写子菜单:用MouseUp事件里的 Button参数(1表示左键 2表示右键)
建一个菜单 vbFile 子菜单vbRight: (右键点击窗体 就会弹出 vbFile下的几个子菜单了)
写入:
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "1"
Case 2
Print "2"
PopupMenu vbFile
End Select
End Sub
以上这样就可以了。
(8)vb菜单有什么方法可以弹出扩展阅读:
vb可以设计包括导航菜单、下拉菜单、右键菜单、顶部菜单等等各类需求菜单样式。
同时VB可以利用控件做出一些不同的风格菜单,让菜单别具一格。
主菜单栏
主菜单栏应构成 UI 任何特定于上下文菜单中程序包的命令的标准位置。主菜单栏与其他命令结构不同,因为在环境中使用它来控制哪些命令都可见。所有其他命令栏只需禁用命令不在上下文中,它们放在一个菜单或工具栏上。
环境定义一组内置于主菜单栏的命令所共有跨整个 IDE 和任务的多个域。这些命令是始终可见的而不考虑其中 Vspackage 加载到环境。
These commands are always visible regardless of which VSPackages are loaded into the environment。 虽然 Vspackage 可以扩展此命令集,从每个产品和其命令的位置设置命令将为每个团队的责任。
参考资料:微软官网-菜单和 Visual studio 命令