二级VB 第10章 菜单、工具栏、状态栏、多文档
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
右击窗体上的Toolbar控件，选择“属性”命令
“通用”选项卡：“图像列表”选择ImageList1
“按钮”选项卡：单击“插入按钮”
工具栏第一个按钮：
“索引”：自动变为1 “关键字”：输入
ImageList1控件中定义
的相应关键字
“图像”：输入“1”
以此类推插入其他按钮
4. 响应ToolBar控件事件
OpenDoc
End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As Select Case Button.Key Case “open” OpenDoc …… “打开”按钮的关键字为open，图像值为 1 '或Case 1，表示单击“打开”按钮
1. 添加工具栏控件
(1) “工程→部件”，选Microsoft Windows Common
Controls 6.0
用 (2)
在窗体任意位置添加一个ImageList控件，名称默
认为ImageList1
(3) 用
在窗体上添加一个Toolbar控件(该控件自动位于菜
单栏的下面) ，其名称默认为Toolbar1。
1 常用属性
标题：设置Caption属性 字符前加&，该字符成为访问键 只输入一个减号- ，创建分隔条 名称：设置Name属性 注：对分隔条，也需定义名称
索引(Index)：用于菜单控件数组
快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible)
2
第10章 菜单、工具栏、状态栏、多文档
教学内容： 菜单的设计与应用（菜单编辑器、下拉式、弹出式） 工具栏与状态栏 多窗体程序的设计与应用 多文档界面 难点： 主菜单、弹出式菜单、工具栏、状态栏的设计
菜单的设计与应用－相关概念
1. 菜单的类型
下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动 菜单，其菜单项取决于按下鼠标右键时指针所处的位置。
编辑菜单控件
如果菜单 控件的前面 没有内缩符 号“ · · · · ”， 表明该控件 建立的是主 菜单，否则 为菜单命令 或子菜单。
3 方法： 先通过菜单编辑器设计菜单，然后编写各菜单控件的 Click事件过程。
[例] 创建简易编辑器 (1) 设计菜单
(2) 设计界面
菜单下面绘制两条直线 ( 两个 Line 控件 ) ，一条为黑色，一条 为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3
栏
例：菜单中有一个“打开”菜单命令(名称为mOpen)，工具
上有一个“打开”按钮(关键字为open，图像值为1)，单击它们 都 执行同样的操作(执行OpenDoc过程)，相应的代码如下：
Private Sub mOpen_Click() '单击“打开”百度文库单命令
单击工具栏上的某个按钮，将引发ButtonClick事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
根据按钮的关键字(Button.Key)或者图像值(Button.Image) 可判断单击的是哪个按钮，然后通过Select Case语句进行 相应的处理
2. VB中的菜单控件
菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本
菜单控件只响应Click事件
使用菜单编辑器：
10.1 主菜单编设计
“工具→菜单编辑器” 工具栏“菜单编辑器”按钮
10.3 工具栏的设计
创建工具栏一般须遵循以下四个步骤：
(1) 将ImageList控件和Toolbar控件添加到工具箱中， 然后添加到窗体上。
(2) 为窗体上的ImageList控件添加所需的图像。 (3) 建立ToolBar控件与ImageList控件之间的关联。 (4) 对ToolBar上的按钮编写Click事件响应代码。
2. 为窗体上的ImageList控件添加所需的图像
右击窗体上的ImageList控件，选择“属性”命令
“通用”选项卡：设置按钮大小
“颜色”选项卡：设定按钮的颜色
“图像”选项卡：选择要加入的图像
“图像”选项卡：定义“关键字”(在ToolBar控件中引用的
图像标识名)
3. 建立ToolBar控件与ImageList控件之间的关联
As Integer, X As Single, Y As Single) If Button = 2 Then End If End Sub '如果按的是鼠标右键
PopupMenu 菜单名 '显示弹出菜单
[例] 弹出菜单设计
(1) 打开例子所建立的工程 (2) 添加如下的事件过程： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit '弹出名称为mnuEdit的菜单 End If End Sub 注：若要创建一个不显示在菜单栏中的弹出菜单，设计 菜单时，需取消主菜单的“可见”复选框。
(3) 编写菜单控件的Click事件过程
10. 2 弹出菜单的设计
用PopupMenu方法可显示弹出式菜单
[对象.]PopupMenu 菜单控件名称
若“对象”缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如：
Private Sub Form或控件名称_MouseUp (Button As Integer, Shift
MSComctlLib.Button)
End Select
“通用”选项卡：“图像列表”选择ImageList1
“按钮”选项卡：单击“插入按钮”
工具栏第一个按钮：
“索引”：自动变为1 “关键字”：输入
ImageList1控件中定义
的相应关键字
“图像”：输入“1”
以此类推插入其他按钮
4. 响应ToolBar控件事件
OpenDoc
End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As Select Case Button.Key Case “open” OpenDoc …… “打开”按钮的关键字为open，图像值为 1 '或Case 1，表示单击“打开”按钮
1. 添加工具栏控件
(1) “工程→部件”，选Microsoft Windows Common
Controls 6.0
用 (2)
在窗体任意位置添加一个ImageList控件，名称默
认为ImageList1
(3) 用
在窗体上添加一个Toolbar控件(该控件自动位于菜
单栏的下面) ，其名称默认为Toolbar1。
1 常用属性
标题：设置Caption属性 字符前加&，该字符成为访问键 只输入一个减号- ，创建分隔条 名称：设置Name属性 注：对分隔条，也需定义名称
索引(Index)：用于菜单控件数组
快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible)
2
第10章 菜单、工具栏、状态栏、多文档
教学内容： 菜单的设计与应用（菜单编辑器、下拉式、弹出式） 工具栏与状态栏 多窗体程序的设计与应用 多文档界面 难点： 主菜单、弹出式菜单、工具栏、状态栏的设计
菜单的设计与应用－相关概念
1. 菜单的类型
下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动 菜单，其菜单项取决于按下鼠标右键时指针所处的位置。
编辑菜单控件
如果菜单 控件的前面 没有内缩符 号“ · · · · ”， 表明该控件 建立的是主 菜单，否则 为菜单命令 或子菜单。
3 方法： 先通过菜单编辑器设计菜单，然后编写各菜单控件的 Click事件过程。
[例] 创建简易编辑器 (1) 设计菜单
(2) 设计界面
菜单下面绘制两条直线 ( 两个 Line 控件 ) ，一条为黑色，一条 为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3
栏
例：菜单中有一个“打开”菜单命令(名称为mOpen)，工具
上有一个“打开”按钮(关键字为open，图像值为1)，单击它们 都 执行同样的操作(执行OpenDoc过程)，相应的代码如下：
Private Sub mOpen_Click() '单击“打开”百度文库单命令
单击工具栏上的某个按钮，将引发ButtonClick事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
根据按钮的关键字(Button.Key)或者图像值(Button.Image) 可判断单击的是哪个按钮，然后通过Select Case语句进行 相应的处理
2. VB中的菜单控件
菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本
菜单控件只响应Click事件
使用菜单编辑器：
10.1 主菜单编设计
“工具→菜单编辑器” 工具栏“菜单编辑器”按钮
10.3 工具栏的设计
创建工具栏一般须遵循以下四个步骤：
(1) 将ImageList控件和Toolbar控件添加到工具箱中， 然后添加到窗体上。
(2) 为窗体上的ImageList控件添加所需的图像。 (3) 建立ToolBar控件与ImageList控件之间的关联。 (4) 对ToolBar上的按钮编写Click事件响应代码。
2. 为窗体上的ImageList控件添加所需的图像
右击窗体上的ImageList控件，选择“属性”命令
“通用”选项卡：设置按钮大小
“颜色”选项卡：设定按钮的颜色
“图像”选项卡：选择要加入的图像
“图像”选项卡：定义“关键字”(在ToolBar控件中引用的
图像标识名)
3. 建立ToolBar控件与ImageList控件之间的关联
As Integer, X As Single, Y As Single) If Button = 2 Then End If End Sub '如果按的是鼠标右键
PopupMenu 菜单名 '显示弹出菜单
[例] 弹出菜单设计
(1) 打开例子所建立的工程 (2) 添加如下的事件过程： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit '弹出名称为mnuEdit的菜单 End If End Sub 注：若要创建一个不显示在菜单栏中的弹出菜单，设计 菜单时，需取消主菜单的“可见”复选框。
(3) 编写菜单控件的Click事件过程
10. 2 弹出菜单的设计
用PopupMenu方法可显示弹出式菜单
[对象.]PopupMenu 菜单控件名称
若“对象”缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如：
Private Sub Form或控件名称_MouseUp (Button As Integer, Shift
MSComctlLib.Button)
End Select