菜单与对话框
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
信息
工具栏
状态栏
工具栏(ToolBar)
在标准工具箱中插入制作工作具栏所需要的控件。 (1)选择“工程”菜单项中的“部件”选项。 (2)选择“部件“对话框中的“控件”选项卡。 (3)单击“”Microsoft Windows Common Controls6.0”左边的
小方框. (4)单击“确认”按钮，这时可看到工具箱中增加了一些控件，
mytext
text
我本将心向明月，奈何明月照 沟渠
菜单的属性如表下表 所示
标题
背景颜色 …天蓝(&B) …橙黄(&Y) …草绿(&G) …默认(&W) 字体 …增大字体(&I) …减小字体(&D)
名称
快捷键
标题
Mnucolor MnuBlue MnuYellow MnuGreen MnuWhite
（3）用鼠标选中窗体后，单击鼠标右键，在弹出菜单 中选择【菜单编辑器】选项并单击。
菜单编辑器简介
） 【名称】（Caption
Name（名称）
Checked（复选） Enabled（有效）
索引（Index) Visible（可见
菜单项的控制
菜单项标记 • Checked（复选）：设置是否选中标志。
'显示复选标记
MnuDyna.Visible = True
'显示“动态菜单”项
End If
End Sub
Private Sub MnuAdd_Click()
Dim Dm As Integer
Dm = MnuD.Count + 1
'计算索引值
Load MnuD.Item(Dm)
'增加索引为Dm的新菜单项
MnuD.Item(Dm).Caption = "新增的菜单项" + Str(Dm) '为新菜单项设置标题
MnuD.Item(Dm).Visible = True '显示新增菜单项
MsgBox "新增菜单项" + Str(MnuD.Count)
MnuDel.Enabled = True
'使删除菜单可有用
----行为常量取值：
0(默认)：菜单命令只接收右键单击。
2：菜单命令可以接收左、右键单击。
【例9.1】弹出式菜单代码如下
Private Sub myText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolBar(工具栏)控件和StatusBar控件(状态栏)也在其中.
Toolbar
ImageList
ToolBar“按钮”选项对话框中的主要属性：
Private Sub MnuShowHide_Click()
If MnuShowHide.Checked = True Then
MnuShowHide.Checked = False '隐藏复选标记
MnuDyna.Visible = False '隐藏“动态菜单”项
Else
MnuShowHide.Checked = True
'使删除菜单不可用
End If
End If
End Sub
弹出式菜单
激活弹出式菜单使用PopupMenu方法：
[<对象名>．]PopupMenu <菜单名> [，flags[，x [，y[，boldcommand ] ] ] ]
其中：
l
对象名默认为当前窗体。
l
flags参数用于设定弹出菜单的性能。
MnuClose
MnuDyna
MnuD
1
运行时动态改变菜单属性
在Windows应用程序中，往往随着用户不同的操作， 菜单项也会有相应的变化，常见的有【复选菜单】、 【失效菜单】和【不可见菜单】等变化。 我们以例9.1 为例来做一个动态的菜单项，其代码段如下：
具体【显示／隐藏动态菜单】、【增加菜单项】和【删除菜单项】等的Click事件代码如下：
End Sub
Private Sub MnuDel_Click()
If MnuD.Count > 1 Then MsgBox "删除新增菜单项" + Str(MnuD.Count) Unload MnuD.Item(MnuD.Count) '删除菜单项
If MnuD.Count = 1 Then
MnuDel.Enabled = False
l
x，y参数为坐标值。
l
boldcommand参数用于在弹出式菜单中显示一个菜单控制。
l
flags参数可以定义弹出式菜单的位置与性能。取值分两组：位置常量和行为常量。Flags各常量取值如下：
----位置常量取值：
0(默认)：弹出菜单的左边定位于X坐标。
4：弹出菜单以X点坐标为中心线。
8：弹出菜单的右边定位于X坐标。
If Button = vbRightButton Then '判断是否右击了 鼠标
单项
myText.Enabled = False PopupMenu MnuColor
'调用MnuColor菜
myText.Enabled = True
End If
End Sub
9.2 工具栏和状态栏
工具栏(ToolBar)是Windows窗口的组成部分 状态栏(StatusBar)是Windows应用程序窗口中用来显示各种状态
本章主要内容
菜单的设计 工具栏和状态栏 对话框
9.1 菜单设计
9.1.1 菜单编辑器(Menu Editor) 9.1.2 下拉式菜单 9.1.3 运行时动态改变菜单属性 9.1.4 弹出式菜单
进入菜单编辑器
打开【菜单编辑器】窗口有三种方法： （1）从【工具】菜单上，单击【菜单编辑器】。 （2）在工具栏上单击【菜单编辑器】快捷按钮。
MnuAddFont MnuDecFont
Ctrl+B Ctrl+Y Ctrl+G Ctrl+W
Ctrl+A Ctrl+D
菜单控制 …显示/隐藏主菜单项 ……增加菜单项 …删除菜单项 ……关闭 动态菜单 …新增的菜单项 1
名称
索
引
值源自文库
MnuShowHid e
SeprateBar2
MnuAdd MnuDel SeprateBar1
• Enabled（有效）：决定菜单项是否对事件作出响应。 （正常显示或灰色）
Visible（可见）：决定菜单项是否可见。
键盘的选择
快捷键
快捷键
访问键
标题输入： &File
下拉式菜单
下拉菜单例题【例9.1】
控件名称
属性
属性值
myform
caption
菜单例题
myFrame
caption
当前状态
工具栏
状态栏
工具栏(ToolBar)
在标准工具箱中插入制作工作具栏所需要的控件。 (1)选择“工程”菜单项中的“部件”选项。 (2)选择“部件“对话框中的“控件”选项卡。 (3)单击“”Microsoft Windows Common Controls6.0”左边的
小方框. (4)单击“确认”按钮，这时可看到工具箱中增加了一些控件，
mytext
text
我本将心向明月，奈何明月照 沟渠
菜单的属性如表下表 所示
标题
背景颜色 …天蓝(&B) …橙黄(&Y) …草绿(&G) …默认(&W) 字体 …增大字体(&I) …减小字体(&D)
名称
快捷键
标题
Mnucolor MnuBlue MnuYellow MnuGreen MnuWhite
（3）用鼠标选中窗体后，单击鼠标右键，在弹出菜单 中选择【菜单编辑器】选项并单击。
菜单编辑器简介
） 【名称】（Caption
Name（名称）
Checked（复选） Enabled（有效）
索引（Index) Visible（可见
菜单项的控制
菜单项标记 • Checked（复选）：设置是否选中标志。
'显示复选标记
MnuDyna.Visible = True
'显示“动态菜单”项
End If
End Sub
Private Sub MnuAdd_Click()
Dim Dm As Integer
Dm = MnuD.Count + 1
'计算索引值
Load MnuD.Item(Dm)
'增加索引为Dm的新菜单项
MnuD.Item(Dm).Caption = "新增的菜单项" + Str(Dm) '为新菜单项设置标题
MnuD.Item(Dm).Visible = True '显示新增菜单项
MsgBox "新增菜单项" + Str(MnuD.Count)
MnuDel.Enabled = True
'使删除菜单可有用
----行为常量取值：
0(默认)：菜单命令只接收右键单击。
2：菜单命令可以接收左、右键单击。
【例9.1】弹出式菜单代码如下
Private Sub myText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolBar(工具栏)控件和StatusBar控件(状态栏)也在其中.
Toolbar
ImageList
ToolBar“按钮”选项对话框中的主要属性：
Private Sub MnuShowHide_Click()
If MnuShowHide.Checked = True Then
MnuShowHide.Checked = False '隐藏复选标记
MnuDyna.Visible = False '隐藏“动态菜单”项
Else
MnuShowHide.Checked = True
'使删除菜单不可用
End If
End If
End Sub
弹出式菜单
激活弹出式菜单使用PopupMenu方法：
[<对象名>．]PopupMenu <菜单名> [，flags[，x [，y[，boldcommand ] ] ] ]
其中：
l
对象名默认为当前窗体。
l
flags参数用于设定弹出菜单的性能。
MnuClose
MnuDyna
MnuD
1
运行时动态改变菜单属性
在Windows应用程序中，往往随着用户不同的操作， 菜单项也会有相应的变化，常见的有【复选菜单】、 【失效菜单】和【不可见菜单】等变化。 我们以例9.1 为例来做一个动态的菜单项，其代码段如下：
具体【显示／隐藏动态菜单】、【增加菜单项】和【删除菜单项】等的Click事件代码如下：
End Sub
Private Sub MnuDel_Click()
If MnuD.Count > 1 Then MsgBox "删除新增菜单项" + Str(MnuD.Count) Unload MnuD.Item(MnuD.Count) '删除菜单项
If MnuD.Count = 1 Then
MnuDel.Enabled = False
l
x，y参数为坐标值。
l
boldcommand参数用于在弹出式菜单中显示一个菜单控制。
l
flags参数可以定义弹出式菜单的位置与性能。取值分两组：位置常量和行为常量。Flags各常量取值如下：
----位置常量取值：
0(默认)：弹出菜单的左边定位于X坐标。
4：弹出菜单以X点坐标为中心线。
8：弹出菜单的右边定位于X坐标。
If Button = vbRightButton Then '判断是否右击了 鼠标
单项
myText.Enabled = False PopupMenu MnuColor
'调用MnuColor菜
myText.Enabled = True
End If
End Sub
9.2 工具栏和状态栏
工具栏(ToolBar)是Windows窗口的组成部分 状态栏(StatusBar)是Windows应用程序窗口中用来显示各种状态
本章主要内容
菜单的设计 工具栏和状态栏 对话框
9.1 菜单设计
9.1.1 菜单编辑器(Menu Editor) 9.1.2 下拉式菜单 9.1.3 运行时动态改变菜单属性 9.1.4 弹出式菜单
进入菜单编辑器
打开【菜单编辑器】窗口有三种方法： （1）从【工具】菜单上，单击【菜单编辑器】。 （2）在工具栏上单击【菜单编辑器】快捷按钮。
MnuAddFont MnuDecFont
Ctrl+B Ctrl+Y Ctrl+G Ctrl+W
Ctrl+A Ctrl+D
菜单控制 …显示/隐藏主菜单项 ……增加菜单项 …删除菜单项 ……关闭 动态菜单 …新增的菜单项 1
名称
索
引
值源自文库
MnuShowHid e
SeprateBar2
MnuAdd MnuDel SeprateBar1
• Enabled（有效）：决定菜单项是否对事件作出响应。 （正常显示或灰色）
Visible（可见）：决定菜单项是否可见。
键盘的选择
快捷键
快捷键
访问键
标题输入： &File
下拉式菜单
下拉菜单例题【例9.1】
控件名称
属性
属性值
myform
caption
菜单例题
myFrame
caption
当前状态