vb程序设计中 “popupmenu format，2” 后面那个2的意思及其用法

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:38:58
全部程序如下：
Private Sub M1_Click()
Text1.FontBold = True
Text1.FontItalic = False
Text1.FontUnderline = False

End Sub

Private Sub M2_Click()
Text1.FontBold = False
Text1.FontItalic = True
Text1.FontUnderline = False
End Sub

Private Sub M3_Click()
Text1.FontBold = False
Text1.FontItalic = False
Text1.FontUnderline = True
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu Format, 2

End If
End Sub

请参考MSDN

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) 对象库里列出