二级VB 第10章 菜单、工具栏、状态栏、多文档
VB菜单、工具栏、菜单栏设计
5.运行时改变状态栏
• 运行时，能重新设置窗格Panel对象以显示不同的 功能，这些功能取决于应用程序的状态和各控制 键的状态。有些状态要通过编程实现，有些系统 已具备。
• (6)Alignment属性 –该属性设置或返回该对象的标题文本对齐方式。 • (7)Bevel属性: –设置或返回该对象的斜面样式，0为没有显示斜面，1 为凹下显示，2为凸起显示。 • (8)AutoSize属性 –调整状态栏的大小后，该属性返回或设置确定Panel对 象的宽度值。 • (9)Count属性 –该属性返回Panels集合中Panels对象的数目。
菜单以分组的形式组织多个命令或操作，为 用户提供了操作应用程序的便捷手段。
工具栏以按钮的形式显示应用程序中最常用 的命令和操作。
状态栏用于显示应用程序的当前状态、键盘 状态以及当前日期和时间等。
6-1
菜单简介
菜单标题 菜单栏 分隔条 菜单选项 快捷键 访问键 子菜单标题 子菜单选项
6-2
设置StatusBar控件。在StatusBar控件上右击鼠标，调出其 属性页。在其中插入两个窗格，第一个窗格的文本设置为“提 示”，第二个窗格自动调整大小属性设置为为1，其他设置不 变。
1.状态栏控件的常用属性
• (1)Align属性 –该属性决定状态栏控件在窗体中的显示位置和大小。 其值为1～4，分别表示在窗体的顶部，底部，左边和 右边，且随窗体自动调整。 • (2)Style属性 –该属性设置或返回状态栏控件的样式。默认值0表示 Normal样式，正常显示所有Panel对象；值为1时表示 Simple样式，仅显示一个大窗格。 • (3)Height和Width属性 –该属性决定控件的高度和宽度。 • (4)Top属性 –该属性决定控件顶端距窗体顶端的距离。
VB程序设计多文档界面、工具栏与图形设计
VB程序设计多文档界面、工具栏与图形设计教学目标及基本要求：1、了解多文档界面MDI的特性及应用2、掌握工具栏和状态栏的创建及应用3、使用画点的Pset方法、画直线和矩形的Line方法、画圆和椭圆的Circle方法绘制图形教学重点：1、多文档界面MDI的创建及应用2、工具栏的创建及应用3、状态栏的创建及应用4、图形设计的基础知识教学难点：工具栏、状态栏及图形的设计教学内容：1、多文档界面的特性2、创建和设计多文档界面3、使用MDI窗体与子窗体4、MDI应用程序中的菜单5、多文档界面应用程序中的子窗体排列6、工具栏设计7、状态栏设计8、图形设计中的坐标系统9、图形设计中颜色的设置10、图形处理教学时间：2学时主要内容：13.1 多文档界面设计13.1.1 多文档界面的特性1、设计阶段多文档界面的特性2、运行期间MDI窗体的特性13.1.2 创建和设计多文档界面1、创建和设计MDI窗体2、创建和设计MDI子窗体13.1.3 使用MDI窗体与子窗体1、设置活动子窗体和活动控件2、保存子窗体中文档的内容3、用QueryUnload卸载MDI窗体13.1.4 MDI应用程序中的菜单13.1.5 多文档界面应用程序中的子窗体排列13.2工具栏设计1、制作工具栏的两种方法（1）手工制作：利用图形框和命令按钮，这种方法比较烦琐。
（2）通过ToolBar、ImageList控件制作。
2、创建工具栏的步骤(1) 添加MSCOMCTL.OCX文件，用鼠标右键单击工具箱，选择快捷菜单中的“部件”命令，在图13-2所示的“控件”选项卡中选择“Microsoft Windows Common Controls6.0”，然后单击“确定”按钮，则在图13-3所示的工具箱中就会出现T oolBar 控件和ImageList 控件。
(2) 创建ImageList控件作为要使用的图形集合。
(3) 创建T oolBar控件，并将ToolBar控件与ImageList控件相关联，创建Button对象。
二级visual basic 课件及习题 第十章PPT教学课件
2020/12/10
7
10.2 文件管理控件
三. 文件列表框（）：
P219 图10-8
用于显示某个路径目录下的一些种类文件。目录路 径和文件种类由文件列表框的自身属性确定。
1. 主要属性: 2. Path属性: 设置和返回显示文件的路径。 3. Pattern属性: 设置显示的文件类型。 4. 属性: 设置和返回将显示的带驱动器目录的文件名。
第十章 其它控件及其运用
10.1 组合框与滚动条
一. 组合框（ComboBox）：
相当于绑在一起的文本框（Text）和列表框（ListBox）
主要属性为Text和List属性，其中List属性的使用方法与 列表框的List属性使用方法相同。此外还有Style属性， 用于控制外观，外观不同时可触发的事件也不同。
ChDrive Drive1.Drive ’将当前驱动器改变为驱动器
2020/12/10
列表框中所选取的驱动器。 5
10.2 文件管理控件
二. 目录列表框（DirListBox）：
P217 图10-7
用于显示当前驱动器的目录结构，并突出显示当前的路径目录。
1. 主要属性:
2.
Path属性，用来设置和返回目录列表框中的当前目录。
2. 直接给属性赋值时，会自动改变Path属性，如： = “D:\config.sys”
则自动地： = “D:\”
2020/12/10
9
10.2 文件管理控件
四. 组合使用三种文件管理控件：
（演示P221 例10.2。。。）
2020/12/10
（演示P214 例10.1。。。）
2020/12/10
4
VB基础状态栏（StatusBar）和工具栏（ToolBar）
VB基础状态栏（StatusBar）和工具栏（ToolBar）1．状态栏的作用与组成StatusBar 控件由Panel（窗格）对象组成，最多能被分成 16 个Panel 对象，每一个 Panel 对象能包含文本和/或图片。
控制个别窗格的外观属性包括 Width、Alignment（文本和图片的）和 Bevel(斜面)。
此外，能使用 Style 属性七个值中的一个自动地显示公共数据，诸如日期、时间和键盘状态等。
2．创建状态栏先在窗体上画出一个StatusBar对象，再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口，进行下面的设置：（1）选择窗格形状在属性窗口里选择通用标签，在样式列表框里选择多窗格（缺省形式）或单窗格简单文本形式。
（2）添加或删除状态栏窗格在属性窗口里选择窗格标签，单击插入窗格按钮添加一个窗格，或单击删除窗格按钮删除一个窗格。
（3）在单窗格里显示文本在属性窗口里选择通用标签，在简单文本框里输入想显示在状态栏窗格里的文本。
用代码显示的方式是：StatusBar1.SimpleT ext = "要显示的内容"（4）在多窗格里显示文本或图形1). 在属性窗口里选择窗格标签，用索引旁的按钮选择窗格序号。
2). 在文本框里输入想显示在状态栏窗格里的文本。
用代码显示的方式是：StatusBar1.Panels(x).Text = "要显示的内容"3). 如果想加入图形，单击浏览按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。
（5) 编写代码如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应：Private Sub StatusBar1_Click()<要执行的代码>End Sub如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来识别用户所单击的窗格：Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)Select Case Panel.IndexCase 1<要执行的代码>Case 2<要执行的代码>……End SelectEnd Sub3．创建工具栏（1）.建立工具栏1）在工具箱里单击工具栏图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。
第10章-VB多文档界面与工具栏设计
☆☆ 第10章多文档界面与工具栏设计
17
2．常用格式化属性
格式化属性，可对该控件中选中的任何部分的文本使用不同的格式
分类
属性
值类型
说明
选中文本 字体、字号
字型
SelText SelStart SelLength SelFontName SelFontSize SelBold SelItalic SelUnderline SelStrikethru
End Sub
☆☆ 第10章多文档界面与工具栏设计
4
10.1 多文档界面设计
10.1.2 显示MDI窗体及其子窗体
显示任何窗体的方法为show,还有有关规则： （1）加载子窗体时，其父窗体会自动加载并显示；反之 则无。 （2）MDI窗体子窗体
1．创建 MDI 应用程序的菜单
2．多文档界面中的“窗口”菜单
☆☆ 第10章多文档界面与工具栏设计
6
10.1 多文档界面设计
(1) 显示打开的多个文档窗口 要在某个菜单上显示所有打开的子窗体标题，只需利用
菜单编辑器将该菜单的WindowList属性设置为True。 (2).排列窗口 利用Arrange方法进行层叠、平铺和排列图标。 形式： MDI窗体对象.Arrange 排列方式
MDI子窗体 标准窗体 MDI窗体
☆☆ 第10章多文档界面与工具栏设计
2
10.1.1 创建多文档界面应用程序
1．创建MDI窗体 用户要建立一个MDI窗体，可以选择“工程”菜单中的
“添加MDI窗体”命令，会弹出“添加MDI窗体”对话框， 选择“新建MDI窗体”或“现存”的MDI窗体，再选择“打 开”按钮。
第十章vb6.0 文件管理及操作
第十章文件管理及操作10.1 文件系统的基本操作VB提供了一些用于处理文件系统的语句，使用这些语句可以在VB应用程序中进行更改当前目录、建立或删除目录、删除文件等基本操作。
目录操作1.获取指定驭动器的当前路径。
要获取某驱动器的当前路径，可以使用CurDir函数，它的语法是：CurDir [drive].参数drive是指要获取信息的驱动器名称，如果忽略该参数，则CurDir函数返回当前驱动器的当前路径。
例如，如果驱动器E;的当前路径为“E: \Too1\Qicq”,则如下语句将在窗体上显示“E:\Too1\Qicq”.Print CurDir（“E”）。
2.更改当前驱动器。
使用ChDrive语句可以更改当前驱动器，其语法为：ChDrive drive.参数drive为要指定为当前驱动器的名称，例如，将驱动器A:指定为当前驱动器的语句为：ChDrive “A”.3.更改当前路径。
使用ChDir语句可以更改当前路径，其语法为：ChDir Path.参数Path为要指定的路径，如果在路径中没有指定驱动器的名称，则表示驱动器为当前驱动器。
例如，将路径C: \Windows指定为当前路径的语句为：ChDir “C:\Windows”.4.建立与删除目录。
使用MkDir语句可以创建一个新的目录，其语法为：MktDir Path.参数Path用来指定所要创建的目录以及目录所在的路径。
Path可以包含驱动器。
如果没有指定路径，则MkDir会在当前路径下创建新的目录。
例如：MKDir “C:\aa”在C盘中创建目录aaMKDir “C:\Windows\bb”在C盘windows目录中创建子目录bbMKDir “CC”在当前路径下创建目录cc使用RmDir语句可以删除某一空目录，其语法为：RmDir Path.例如：MKDir “C:\aa”删除C盘中目录aaMKDir “C:\Windows\bb”删除C盘windows目录中的子目录bbMKDir “CC”删除当前路径下创建目录cc注意：RmDir语句只能用来删除空的目录，如果目录中还包含有子目录或文件，则必须先删除子目录和文件。
度计算机等级考试二级VB基础教程(10)
度计算机等级考试二级VB 基础教程 (10)度计算机等级考试二级VB基础教程 (10)2.6VisualBasic的输入体制程序的基本操作就是数据的输入，数据办理和数据的输出。
VisualBasic可顶用于输入的控件主要有：文本框 TextBox、复选框 CheckBox、选项按钮 OptionButton 、列表框 ListBox、组合框 ComboBox、转动条 ScrollBar、通用对话框控件。
还有一个函数叫 InputBox 函数，也可用于数据的输入。
1.经过文本框输入数据只需获得文本框的Text 属性就能够对其进行操作了。
下边的代码可将Text1 文本框的正文变为大写输出至Text2 文本框。
PrivateSubForm_Click()Text2.Text=UCase(Text1.Text)EndSub2.经过复选框和选项按钮输入数据只需检测到 CheckBox和 RadioButton 的 Value 属性值就能够知道它们能否被选上了。
3.经过列表框和组合框输入数据(1)列表框 ListBox 和组合框 ComboBox的不同它们在 Windows 的 Open，SaveAs对话框里最为常有。
组合框又包含三种种类，这三种种类要在它的 Style 属性里设置。
列表框只是把能够选择的项目列出来，而组合框里有的种类能够同意用户输入数据。
(2)列表项目的增减使用 AddItem，RemoveItem 语句能够增减列表项目。
往常将项目增减的语句放入 Form_Load事件里。
ListBoxName.AddItemitemComboBoxName.AddItemitemitem 是新项目名称，一定是字符串种类，非字符串种类可经过Str 函数或Format 函数来变换。
转列表框，组合框的每一项目都有一个Index 值，第一个项目的 Index 值是 0，第二个是 1，依此类推。
删除项目可经过删除其Index 值来实现。
VB菜单工具栏
14-4 制作工具栏
一般情况下，工具栏是用来配合菜单。工具栏具有菜 单所缺少的图形化的外观，而且提供了比菜单更快速的访 问方式。因此，利用工具栏与应用程序中最常用的菜单命 令建立联系，由此可提高应用程序的用户操作速度。 为便于创建工具栏，Visual Basic的专业版与企业版 专门提供了用于制作工具栏的 ToolBar 控件。
6. 插入(Insert)按钮：
7. 删除(Delete)按钮： 8 ↓和↑按钮： 9. 复选(Checked)检查框： 10. 有效(Enabled)检查框： 11. 显示窗口列表 (Window List)检查框：
菜单的主要属性
1. 标题(Caption)：在窗口上显示，例如：输入&File， 显示为： File，热键：Alt+F 2. 名称(Name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(Shortcut)：下拉列表框 4 下一个(Next)： 设置下一个菜单项。 5. ←和→按钮：“→” 下一级菜单项；“←”上一级菜单 项。 6. 插入(Insert)按钮：插入菜单项 7. 删除(Delete)按钮：删除菜单项 8. ↓和↑按钮： 改变菜单项位置。 9. 复选(Checked)检查框：菜单项为选定项。 10. 有效(Enabled)检查框：True：菜单项可选；False： 不可选。 11. 显示窗口列表(Window List)检查框： 决定是否显示所有打开的子窗体标题。 对MDI窗体和MDI子窗体有效，对普通窗体无效。
第十四章
菜单和工具栏
本章内容及要求：
1. 掌握菜单的制作和编程，包括普通菜单、弹出 式菜单以及动态变化的菜单。 2. 掌List控件之间的协作关系。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 添加工具栏控件
(1) “工程→部件”，选Microsoft Windows Common
Controls 6.0
用 (2)
在窗体任意位置添加一个ImageList控件，名称默
认为ImageList1
(3) 用
在窗体上添加一个Toolbar控件(该控件自动位于菜
单栏的下面) ，其名称默认为Toolbar1。
MSComctlLib.Button)
End Select
OpenDoc
End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As Select Case Button.Key Case “open” OpenDoc …… “打开”按钮的关键字为open，图像值为 1 '或Case 1，表示单击“打开”按钮
编辑菜单控件
如果菜单 控件的前面 没有内缩符 号“ · · · · ”， 表明该控件 建立的是主 菜单，否则 为菜单命令 或子菜单。
3 方法： 先通过菜单编辑器设计菜单，然后编写各菜单控件的 Click事件过程。
[例] 创建简易编辑器 (1) 设计菜单
(2) 设计界面
菜单下面绘制两条直线 ( 两个 Line 控件 ) ，一条为黑色，一条 为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3
(3) 编写菜单控件的Click事件过程
10. 2 弹出菜单的设计
用PopupMenu方法可显示弹出式菜单
[对象.]PopupMenu 菜单控件名称
若“对象”缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如：
Private Sub Form或控件名称_MouseUp (Button As Integer, Shift
10.3 工具栏的设计
创建工具栏一般须遵循以下四个步骤：
(1) 将ImageList控件和Toolbar控件添加到工具箱中， 然后添加到窗体上。
(2) 为窗体上的ImageList控件添加所需的图像。 (3) 建立ToolBar控件与ImageList控件之间的关联。 (4) 对ToolBar上的按钮编写Click事件响应代码。
右击窗体上的Toolbar控件，选择“属性”命令
“通用”选项卡：“图像列表”选择ImageList1
“按钮”选项卡：单击“插入按钮”
工具栏第一个按钮：
“索引”：自动变为1 “关键字”：输入
ImageList1控件中定义
的相应关键字
“图像”：输入“1”
以此类推插入其他按钮
4. 响应ToolBar控件事件
2. VB中的菜单控件
菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本
菜单控件只响应Click事件
使用菜单编辑器：
10.1 主菜单编设计
“工具→菜单编辑器” 工具栏“菜单编辑器”按钮
第10章 菜单、工具栏、状态栏、多文档
教学内容： 菜单的设计与应用（菜单编辑器、下拉式、弹出式） 工具栏与状态栏 多窗体程序的设计与应用 多文档界面 难点： 主菜单、弹出式菜单、工具栏、状态栏的设计
菜单的设计与应用－相关概念
1. 菜单的类型
下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动 菜单，其菜单项取决于按下鼠标右键时指针所处的位置。
1 常用属性
标题：设置Caption属性 字符前加&，该字符成为访问键 只输入一个减号- ，创建分隔条 名称：设置Name属性 注：对分隔条，也需定义名称
索引(Index)：用于菜单控件数组
快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible)
2
单击工具栏上的某个按钮，将引发ButtonClick事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
根据按钮的关键字(Button.Key)或者图像值(Button.Image) 可判断单击的是哪个按钮，然后通过Select Case语句进行 相应的处理
栏
例：菜单中有一个“打开”菜单命令(名称为mOpen)，工具
上有一个“打开”按钮(关键字为open，图像值为1)，单击它们 都 执行同样的操作(执行OpenDoc过程)，相应的代码如下：
Private Sub mOpen_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 注：若要创建一个不显示在菜单栏中的弹出菜单，设计 菜单时，需取消主菜单的“可见”复选框。