计算机VB学习第10章.ppt

Visual Basic 程 序 设 计 山东外贸职业学院 E-mailE-mail： 信息管理系 柳淑花 第2页 第10章 高级界面设计 本章主要内容 1、菜单 2、对话框 3、多重文档界面 4、工具条和状态栏 5、RichTextBox 控件 作业 本章小结 退出 第3页 10.1 菜 单 在窗口环境下，绝大多数应用程序使用菜单界面进行各 种操作。菜单提供了人机对话界面，方便使用者选择应用系 统的各种功能。另外，通过菜单可以管理应用系统，控制应 用程序各种功能模块的运行。 菜单可分为下拉式菜单下拉式菜单和弹出式菜单弹出式菜单两种基本类型。 在 VB 中，菜单控件也是一个对象菜单控件也是一个对象，具有定义它的外观与 行为的属性。菜单控件只包含一个事件，即单击事件。 下拉式菜单的组成 上一页下一页 返回本章首页 第4页 1. 使用菜单编辑器创建下拉菜单 从菜单编辑器窗口可知，菜单编器器窗口分为 三个部分，即数据区数据区、编辑区编辑区和菜单项显示区菜单项显示区。 打开菜单编辑器窗口 的方法有： “ “工具工具”-“”-“菜单编辑器菜单编辑器” ” 工具栏的工具栏的“ “菜单编辑器菜单编辑器” ” 按钮按钮 右击窗体-“菜单编辑器” 数据区 编 辑 区 菜单显示区 上一页下一页 返回本章首页 第5页 数据区 数据区为窗口标题栏下面的 5 行，用来输入或 修改菜单项，设置菜单控件的主要属性。 编辑区 编辑区由 7 个按钮组成，单击右箭头将把选定 的菜单向右移一个等级。单击左箭头将把选定的菜 单向上移一个等级。单击上箭头将把选定的菜单项 在同级菜单内向上移动一个位置。单击下箭头把选 定的菜单项在同级菜单内向下移动一个位置。单击 “下一个”按钮将开始一个新的菜单项。单击“插入” 按钮将在某个菜单项前插入一个新的同级空白菜单 项。单击“删除”按钮将删除选定的菜单项。 上一页下一页 返回本章首页 第6页 菜单项显示区 菜单项显示区为菜单编辑器最下面的列表框 ，该列表框显示菜单项的分级列表。将子菜单项 缩进以指出它们的分级位置或等级。如图 ： 上一页 下一页 返回本章首页 第7页 菜单控件的常用属性 属性说 明 Caption菜单项 上显示的文字（菜单标题 ），可以用 & 定义菜单项 的 热键 。分隔条的标题为 一个连字符 (-) 。 Name为菜单控件名，仅用于访问 代码中的菜单项 。 Index设置菜单控件数组的下标。 ShortCut为每个菜单项选 定快捷键，即通过键盘 来选择 某个菜单项 Checked当 “复选“ 属性设置为True 时，在相应的菜单项 旁加上 “ 以 表明该菜单项处 于活动状态 Enabled用来设置菜单项 的可用性，当该属性设置为False时，相应的 菜单项 呈灰色，表明不会相应用户事件 Visible设置该菜单项 是否可见。不可见的菜单项时 不能被执行的 协调 位置NegotiatePosition 属性决定是否及如何在容器窗体中显示菜单 “显示窗 口列表” 在 MDI 应用程序中，确定菜单控件是否包含一个打开的 MDI 子窗体列表 上一页下一页 返回本章首页 第8页 菜单控件的单击事件（Click） 注意： 菜单控件没有任何方法，只有一个单击事件； 每个菜单项都是一个单独的对象； 触发单击（Click）事件的方法有： 鼠标单击菜单项 使用快捷键 使用热键 方向键移到菜单项上，按回车键 上一页 下一页 返回本章首页 第9页 例10.1：菜单应用举例 界面如图： li10_1.vbp 上一页 下一页 返回本章首页 第10页 2. 弹出式菜单 弹出式菜单是独立于菜单栏的浮动菜单，其在窗体 上的显示位置由单击鼠标时指针的位置决定。 在VB中，使用PopupMenu方法来显示弹出菜单。 PopupMenu方法的语法为： 对象. PopupMenu 菜单名, 标志, x, y, boldcommand 说明： 菜单名应该是使用“菜单编辑器”为窗体设计的菜 单系统中一个有子菜单的菜单项名。 x, y 菜单显示的位置坐标。若省略，则菜单显 示在鼠标指针所在的位置。 上一页下一页 返回本章首页 第11页 “标志” 的设置值： boldcommand应该是弹出式菜单上的某个菜单项 名，若选中，则粗体显示该项。 例10.2：将上例中的“字型”菜单的内容作为弹 出 式菜单的内容。li10_2.vbp 常 数 位 置值描 述 vbPopupMenuLeftAlign 0缺省值。弹出式菜单的左边定位于 X vbPopupMenuCenterAlign 4弹出式菜单以 X 为中心 vbPopupMenuRightAlign 8弹出式菜单的右边定位于X 常 数 行 为值描 述 vbPopupMenuLeftButton 0缺省值。 仅当使用鼠标左键时， 弹出式菜 单中的项目才响应鼠标单击 。 vbPopupMenuRightButton 2不论使用鼠标右键还是左键， 弹出式菜单中 的项目都响应鼠标单击 。 上一页下一页 返回本章首页 第12页 10.2 对话框 1. 通用对话框 通用对话对话 框控件（CommonDialog）在窗体上创建6种标标 准对话对话 框。它们分别是：打开（Open）、另存为（Save As）、颜色（Color） 、字体（Font） 、打印机（Printer ）和帮助（Help）对话框。 通用对话框不是标准控件，使用前应将对话框控件添加到 工具箱中，方法是：“工程”菜单-“部件”命令-打开“部 件”对话对话 框-选选中“Microsoft Common Dialog Control 6.0” -”确定”即可在工具箱中添加通用对话对话 框控件。 设计时设计时 在窗体上绘绘制的通用对话对话 框不能改变变大小，运行 时时控件被隐隐藏，可以通过过设设置不同Action属性值值和使用 不同的方法来决定对话对话 框的类类型。 上一页下一页 返回本章首页 第13页 所显示的对话框方法Action属性值 显示“打开”对话框 ShowOpen1 显示“另存为”对话框 ShowSave2 显示“颜色”对话框 ShowColor3 显示“字体”对话框 ShowFont4 显示“打印机”或“打印选项 ”对话框 ShowPrinter5 调用 Windows 帮助引擎 ShowHelp6 不同对话框的不同对话框的Action属性值属性值如下：如下： Action属性只能在程序中赋值赋值 ，而不能在属性窗口进进行设设 置。 上一页下一页 返回本章首页 第14页 通用对话框的其他共同属性有： （1） DialogTitle 属性 设设置对话对话 框标题栏标题栏 所显显示的字符串。 （2） CancelError 属性 在通用对话对话 框内有一个“确定”按钮钮和一个“取消”按钮钮。 当用户选择“取消”时是否产生错误。 （3）Flags属性 用来修改通用对话对话 框的每个具体对话对话 框的默认设认设 置。 通用对话对话 框的属性除了在属性窗口和程序代码码中设设置外 ，还还可以在其“属性页页”对话对话 框中设设置。右键单击键单击 窗体上通 用对话对话 框控件，从弹弹出的快捷菜单单中选择选择 “属性”命令即可 打开“属性页页”对话对话 框。 上一页下一页 返回本章首页 第15页 2.文件对话框（“打开”或“另存为”） 使用ShowOpen方法或ShowSave方法显显示的“ 打开” 或“另存为为”文件对话对话 框，尽管作用不一样样 ，但其外观观及其属性基本一致。与熟悉的Word界面的 “打开”文件或“另存为为”文件对对 话话框的外观观和作用类类似。 如：打开文件对话框 CommonDialog1.Action = 1 CommonDialog1.ShowOpen 上一页 下一页 返回本章首页 第16页 文件对话框的主要属性有： DefaultExt 属性 设设置保存文件的默认扩展名，如 .txt 或 .doc。 FileName 属性 设置所选文件的路径和文件名。 FileTitle 属性 设置要打开或保存文件的名称（没有路径）。 Filter 属性（公共对话框） 设置在对话框的文件类型列表框中所显示的过滤器 （即限定的文件类型）。如： CommonDialog1.Filter = “Word文档(*.Doc) |*.Doc| 文本文件(*.Txt) |*.txt|所有文件(*.*)|*.*” InitDir属性 用来指定初始化打开或保存的路径，如果该属性 没有指定，则默认我的文档。 上一页下一页 返回本章首页 第17页 文件对话框举例： 例10.3：打开对话框举例，界面如左图。 li10_3.vbp 例10.4：另存为对话框举例，界面如右图。 li10_4.vbp 上一页 下一页 返回本章首页 第18页 3. 3. 颜色对话框颜色对话框 通过使用通用对话框的 ShowColor 方法可显示“颜色” 对话框。“颜色”对话框用以从调色板选择颜色，或是生成和 选择自定义颜色。使用“颜色”对话框前先设置通用对话框控 件中与颜色对话相关的属性，然后使用 ShowColor 方法显示 对话框， Color 属性用来设置或返回选定的颜色。 其语法格式为：object.Color 例例10.510.5：对话框应用举例，界面如图。对话框应用举例，界面如图。 li10_5.li10_5.vbpvbp 上一页 下一页 返回本章首页 第19页 4. 字体对话框 使用通用对话框的 ShowFont方法可显示“字体”对 话框。“字体”对话框用来为文字指定字体、大小、颜 色和样式。 与字体有关的属性： Flags确定对话框中显示字体的类型，在显示字体对 话框前必须设置该属性，否则会发生不存在字体的错误 。使用 OR 运算符可以为一个对话框设置多个标志。 Color选定的颜色 FontName 、FontSize 、FontBold 、FontItalic、 FontStrikethru、 FontUnderline字体的名称、 大小、粗体、斜体、删除线、下划线 Max、Min指定字体大小范围 上一页下一页 返回本章首页 第20页 “字体”对话框的 Flags 属性 如：cdlCFScreenFonts OR cdlCFEffects 应用见： li10_5.vbp 系统常数值说明 cdlCFScreenFonts&H1使对话 框只列出系统支持的屏幕字 体 cdlCFPrinterFonts&H2使对话 框只列出打印机支持的字体 cdlCFBoth&H3使对话框列出可用的打印机和屏 幕字体 cdlCFEffects&H100 指定对话框允许删除线、下划线 以及颜色效果。 上一页 下一页 返回本章首页 第21页 5. 5. 打印对话框打印对话框 使用通用对话框的ShowPrinterShowPrinter 方法方法可显示“打印”对话框 。“打印”对话框可用以指定打印输出方式，被打印页的范围 ，打印质量，打印的份数等等。这个对话框还包含当前安装的 打印机的信息，并允许配置或重新安装缺省打印机。这个对话 框并不给打印机传送数据，只是指定希望打印数据的情况。如 果 PrinterDefault 属性为 True，可以使用可以使用 Printer Printer 对象按选定对象按选定 的格式打印数据。的格式打印数据。 属性作 用 Copies打印的份数 FromPage开始打印页 ToPage结束打印页 Max，Min 设置打印范围允许的最大和最小值 PrinterDefault确定在“打印”对话框中的选择是否用于改变系统缺省的打印机设置 与与“ “打印打印” ”对话框有关的属性对话框有关的属性 上一页 下一页 返回本章首页 第22页 与“帮助”对话框有关的属性 属性作 用 HelpCommand 返回或设置需要的联机帮助的类型 HelpFile 确定 Microsoft Windows Help 文件的路径和文件名，应用 程序使用这个文件显示 Help 或联机文档 HelpKey返回或设置标识请 求的帮助主题的关键字 HelpContext为一个对象返回或设置一个相关联上下文的编号。它被用 来为应 用程序提供上下文有关的帮助 6. 6.帮助对话框帮助对话框 通用对话框的 ShowHelp 方法可运行 Windows 的帮助引 擎 (WinHelp.exe)，并显示由 HelpFile 属性设定的一个帮助文 件（不能制作帮助文件）。 通过 HelpCommand 属性的设置，可以告诉该帮助引擎 想要哪种类型的联机帮助，比如是上下文相关，或是特定关键 字的帮助等。 上一页下一页 返回本章首页 第23页 7. 自定义对话框 通过添加窗体的方法在“添加窗体”对话框中选择“对话框”来 新建一个标准的对话框，然后根据需要，用户完全可以自行设 计对话框的外观和功能，这就是自定义对话框。 自定义对话框分为两种类型，即模式自定义对话框和无模 式自定义对话框。 模式对话框：模式对话框：在焦点可以切换到其他窗体或对话框之前在焦点可以切换到其他窗体或对话框之前 ， 要求用户必须做出响应。要求用户必须做出响应。 无模式对话框：无模式对话框：无模式对话框的焦点可以自由切换到其无模式对话框的焦点可以自由切换到其 他窗体或对话框，而无需用户关闭当前对他窗体或对话框，而无需用户关闭当前对 话框。话框。 上一页下一页 返回本章首页 第24页 自定义对话框 如：如： 自定义对话框属性设置 属性属性值说明 BorderStyle1、3、4边框固定，以防运行时改变对话 框尺寸 ConrolBoxFasle取消控制菜单 MaxButtonFasle取消最大化按钮 MinButtonFasle取消最小化按钮 上一页 下一页 返回本章首页 第25页 对话框的显示与卸载 对话框就是一种窗体，因此可以象窗体一样进行加载、 显示、隐藏和卸载。 假设对话框名称为Dialog1，将该对话框显示为模式的 Show方法格式为： Dialog1. Show vbModal 而将该对话框显示为无模式的Show方法格式为： Dialog1. Show 要卸载或隐藏隐藏自定义对话框，可以在对话框的“确定”或“ 取消”命令按钮的单击事件中使用Unload方法或HideHide方法方法。 例例10.610.6：自定义：自定义对话框举例，见对话框举例，见 li10_6.li10_6.vbpvbp 上一页下一页 返回本章首页 第26页 作业：P171 8 上机作业： 实训十三 上一页 下一页 返回本章首页 第27页 10.3 多重文档界面(MDI) 文档界面样式主要有两种： 单文档界面（SDI, Single Document Interface） 多文档界面（MDI, multiple document interface） 多文档界面是一种典型的Windows应用程序 结构。它可以同时操作多个文档的应用程序。 如：Word、Excel等。 上一页 下一页 返回本章首页 第28页 多文档界面的组成：多文档界面的组成： 由一个父窗体（MDI窗体）和一个或多个子窗体 （MDChild=True的普通窗体）组成。 MDI窗体作为子窗体的容器，子窗体包含在父窗 体之内，用来显示各自的文档，所有的子窗体都具 有相同的功能。 上一页 下一页 返回本章首页 第29页 建立多文档界面的基本步骤建立多文档界面的基本步骤 创建和设计MDI父窗体 “工程”“添加MDI窗体” 注意：每个应用程序只能有一个MDI窗体 创建和设计MDI子窗体 MDI子窗体是一个MDIChild 属性为 True 的普通窗体。 MDI子窗体的特性 在设计阶段，子窗体独立于父窗体，与普通的VB窗体没 有任何区别，可以在子窗体上增加控件、设置属性、编 写代码。 上一页 下一页 返回本章首页 第30页 在运行期间，在运行期间，MDIMDI窗体及其子窗体具有如下特性：窗体及其子窗体具有如下特性： 所有子窗体都只能在MDI窗体内部进行调整，不能超 出MDI窗体之外。 最小化的子窗体出现在MDI窗体上，并不在桌面的任 务栏上显示。最小化MDI窗体时，MDI窗体在任务栏 上显示为图标。 在子窗体处于最小化和最大化之间时，每个子窗体都 有自己的标题，当子窗体最大化时，其标题与MDI窗 体的标题合并，并显示在MDI窗体的标题栏上。 将MDI窗体的AutoShowChildren属性设置为True， 可以使子窗体在装入时自动显示。 活动子窗体的菜单将显示在MDI窗体上，而不是子窗 体上。 上一页下一页 返回本章首页 第31页 MDIMDI窗体上的控制区窗体上的控制区 MDI窗体分为两部分，其中上面一部分称为控制区 ，下面一部分称为工作区。 建立了MDI父窗体、子窗体，确定了启动动窗体并建立了 控制区后，就可以根据需要编编写程序代码码了。MDI父窗体的 控制区及各个子窗体内都可以建立控件，可以像单单一窗体一 样编样编 写程序代码码。 在MDI窗体上建立控制区 上一页下一页 返回本章首页 第32页 MDIMDI窗体和子窗体之间的交互窗体和子窗体之间的交互 设置活动子窗体和活动控件： 在MDI窗体上显示的子窗体不止一个时，可以通过 ActiveForm属性得到或指定哪一个子窗体为活动的。 在newclient子过程中的语句 MDIForm1.ActiveForm.Text1.Text =name + vbCrLf 即表示为MDIForm1父窗体中最后一个获得焦点的子窗 体的文本框设置Text属性值。 同样，当在一个窗体上显示的控件不止一个时，可 以通过 ActiveControl属性得到或指定哪一个控件为得 到焦点的控件。 上一页 下一页 返回本章首页 第33页 窗体显示与窗体显示与QueryUnloadQueryUnload事件事件 窗体显示 当MDI窗体为为启动动窗体时时，子窗体不能自动动装入，当子 窗体为为启动动窗体时时，MDI窗体自动动装入。 QueryUnload事件 为为了避免随着父窗体的关闭闭而使所有的子窗体结结束，造 成子窗体内容的丢丢失，VB提供了QueryUnload事件。 例例10.710.7：MDIMDI窗体窗体举例，见举例，见 li10_7.li10_7.vbpvbp 上一页 下一页 返回本章首页 第34页 下面是QueryUnload事件的实实例： Private Sub MDI父窗体名|子窗体名Form_QueryUnload (Cancel As Integer, UnloadMode As Integer) Dim Msg 声明变量 If UnloadMode 0 Then 如果正在退出应用程序 Msg = “你真想退出应用程序吗?“ FileSaveProc 调用保存数据的过程FileSaveProc Else 如果正在关闭窗体 Msg = “你真想关闭窗体吗?“ End If 如果用户单击 No按钮，则停止QueryUnload。 If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True End Sub 上一页 下一页 返回本章首页 第35页 UnloadMode参数的取值 常数值描述 vbFormControlMenu0用户从窗体上的“控件”菜单中选择 “关闭”指令。 vbFormCode1Unload 语句被代码调 用。 vbAppWindows2当前 Microsoft Windows 操作环境会话结 束。 vbAppTaskManager3Microsoft Windows 任务管理器正在关闭应 用程 序。 vbFormMDIForm4MDI 子窗体正在关闭，因为 MDI 窗体正在关闭 上一页 下一页 返回本章首页 第36页 Arrange方法的方式设置值 常数值描述 vbCascade0层叠所有非最小化 MDI 子窗体。 vbTileHorizontal1水平平铺所有非最小化 MDI 子窗体。 vbTileVertical2垂直平铺所有非最小化 MDI 子窗体。 vbArrangeIcons3重排最小化 MDI 子窗体的图标 。 窗体排列窗体排列 Arrange方法用以重排 MDIForm 对象中的窗口或图标 ，如上述工程的“窗口”菜单下即为排列窗口的命令，其中“垂 直排列”单击事件为： Private Sub Varrange_Click() MDIForm1.Arrange 2 End Sub 其中：“2”为排列方式参数，其余方式参数设置值参见下表 上一页下一页 返回本章首页 第37页 MDIMDI应用程序中的菜单应用程序中的菜单 在MDI应用程序中，菜单可以建立在父窗体上，也 可以建立在子窗体上，也可以分别建立。每个子窗体的 菜单在MDl父窗体上显示，而不是在子窗体本身显示。 当一个子窗体为活动窗（即有焦点）时，如果该子 窗体的有菜单，则该菜单将取代MDI窗体菜单条上的菜 单。如果没有可见的子窗体，或者有焦点的子窗体没有 菜单，则显示MDI父窗体的菜单。 通过把某个菜单的WindowList属性设置为True，可 以用MDI窗体或子窗体上的任何菜单显示已打开的子窗 体的列表。 上一页 下一页 返回本章首页 第38页 设置 WindowList 属性的步骤如下： 选择要显示菜单的窗体(父窗体或子窗体) ，执行“工具”菜单中的“菜单编辑器”命令 ， 打开“菜单编辑器”窗口。 在菜单项显示区中，选择要将窗体列表显 示在其中的菜单，如“用户”菜单。 选择“显示窗口列表”（WindowList）复选 框。 在运行期间，这个菜单显示打开的子窗 体的列表，同时，这个菜单的WindowList 属性作为True返回。 上一页下一页 返回本章首页 第39页 10.4 工具栏和状态栏 工具栏ToolBar控件将菜单单及工具栏栏的概念统统一成 一个一般性的、可视视的、可编编程的对对象。作为为工具栏 ，它包含了具有图标图标 和标题标题 的菜单单命令，并且在保持 大家熟悉的菜单单格式的同时还时还 表现现出类类似于按钮钮的特 性。有些工具栏栏按钮钮与组组合框控件类类似，带带有下拉箭 头头。某些类类型的命令条对对象可以包括其它的命令条对对 象。 状态栏StatusBar控件用来显显示各种信息。 为为了使用上述控件，应应首先打开“部件”对话对话 框 ，选选中“Microsoft Windows Common Controls6.0”， 将控件添加到VB工具箱中。 上一页 下一页 返回本章首页 第40页 （1 1）执行“工程”菜单中的 “添加MDI窗体” 命令 ， 建立个MDI窗体。 （2 2）在MDI窗体上拖放一个ToolBar控件和一个 ImageList控件。 （3 3）在ImageList控件中添加图像。 （4 4）在ToolBar控件中添加按钮。 在MDI窗体上建立工具条的一般步骤 制作工具制作工具栏栏有两种方法：有两种方法： 手工制作：手工制作：利用利用图图图图形框和命令按形框和命令按钮钮钮钮，这这这这种方法比种方法比较较较较繁繁 琐琐琐琐。 通通过过ToolBarToolBar、ImageListImageList控件制作。控件制作。 1. 1. 工具工具栏栏(ToolBar) 上一页 下一页 返回本章首页 第41页 在ImageList控件中添加图像 （1）ImageList控件 ImageList 控件包含 ListImage 对对象的集合，该该集合中 的每个对对象都可以通过过其索引或关键键字被引用。ImageList 控件不能独立使用，只是作为为一个便于向其它控件提供图图 象的资资料中心。如工具栏栏控件（ToolBar）中的图图像就是 从ImageList 控件中获获取的。 （2）在ImageList控件中添加图像 在ToolBar控件上添加ImageList控件（如ImageList1控 件）后，用右键单击键单击 ImageList1控件，在弹弹出的快捷菜单单 中选择选择 “属性”命令，打开如图图所示“属性页页”对话对话 框（见下 页），选择选择 其中的“图图像” 选项选项 卡。上一页 下一页 返回本章首页 第42页 ImageList1控件“属性页页”对话对话 框： 上一页 下一页 返回本章首页 第43页 在ToolBar控件中添加按钮 （1）ToolBar控件 ToolBar控件包含一个按钮对 象集合，该对 象被 用来创建与应用程序相关联的工具栏。工具栏包含 一些按钮，这些按钮与应用程序菜单中各项的按钮 对应 ，工具栏为 用户访问应 用程序的最常用功能和 命令提供了图形接口。 （2）为工具栏连接按钮 右键单击 Toolbar控件，选择 “属性”命令打开 如图所示的Toolbar 控件“属性页”对话 框（见下 页） ，选择 “通用”选项 卡。 上一页下一页 返回本章首页 第44页 Toolbar 控件的“属性页页”对话对话 框： 上一页 下一页 返回本章首页 第45页 为工具栏增加按钮 打开“属性页”上的“按钮钮”选项选项 卡，单击 “插入按钮”，可以在工 具栏上插入按钮。 值常数按钮说明 0tbrDefault普通按钮按下按钮后恢复原状，如“新建”按钮 1tbrCheck开关按钮按下按钮后保持按下状态，如“加粗”等按钮 2tbrButtonGroup编组按 钮 在一组按钮中只能有一个有效，如对齐方式按 钮 3tbrSepatator分隔按钮将左右按钮分隔开 4tbrPlaceholder占位按钮用来安放其它按钮，可以设置其宽度（width） 5tbrdropdown菜单按钮具有下拉菜单，如Word中的“字符缩放”按钮 上一页 下一页 返回本章首页 第46页 响应Toolbar控件的事件 Toolbar控件的主要事件有：ButtonClick 事件（ 对应按钮样式0-2）和ButtonMenuClick 事件（对 应按钮样式5）。由于工具栏上的按钮为控件数组 ，故既可以用索引（Index属性），也可以用关键 字（Key属性）来识别按钮，但要注意用户可用“ 自定义工具栏”对话框重新安排按钮对象，Index 属性值可能并不一定总指示按钮的位置。因此， 最好的方法是用 Key 属性值识别按钮对象。 例10.8：工具栏举例，见 li10_8.vbp 例10.9：工具栏举例，见 li10_9.vbp 上一页 下一页 返回本章首页 第47页 ， 下列的ButtonClick 事件代码就用到按钮对象的Key 属性（假 设在Form1窗体上增添了通用对话框控件CommonDialog1） 。 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “TNew“ Form1.CommonDialog1.ShowNew Case “TOpen“ Form1.CommonDialog1.ShowOpen End Select End Sub ButtonMenuClick 事件的语法格式为： Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) End Sub 上一页下一页 返回本章首页 第48页 2. 状态栏（StatusBar 控件） StatusBar 控件就是一个窗体，该窗体通常放在 父窗体的底部，或通过其Align属性设置其出现的位置 。 通过StatusBar控件，应用程序能显示各种状态数 据。StatusBar控件由面板（Panel）对对象组组成，一个 StatusBar控件最多可以有16个Panel 对对象，每一个 Panel对对象都可包含文本和/或图图片。 可以控制每个Panel对象的外观属性，包括 Width 、Alignment（文本和图片的）和 Bevel（文本显示的 样式）。还可以使用 Style 属性值中的一个自动地显 示公共数据。上一页下一页返回本章首页 第49页 状态栏的建立 在设计时 ，在窗体上增加 StatusBar 控件，并 在其属性页的“窗格”选项 卡中进行必要的设置， 以建立面板并定制它们的外观。 上一页 下一页 返回本章首页 第50页 状态栏的Style属性 l。 常数值描述 sbrText0（缺省）。文本和/或位图。用 Text 属性设置文本。 sbrCaps1Caps Lock 键。当激活 Caps Lock 时，用黑体显示字母 CAPS，反之，当停用 Caps Lock 时，显示暗淡的字母。 sbrNum2Number Lock。当激活数字锁定键时 ，用黑体显示字母 NUM，反之，当停用数字锁定键时 ，显示暗淡的字母。 sbrIns3Insert 键。当激活插入键时 ，用黑体显示字母 INS。反之， 当停用插入键时 ，显示暗淡的字母。 sbrScrl4Scroll Lock 键。当激活滚动锁 定时，用黑体显示字母 SCRL ，反之，当停用滚动键时 ，显示暗淡的字母。 sbrTime5Time。以系统格式显示当前时间 。 sbrDate6Date。以系统格式显示当前日期。 sbrKana7Kana。当激活滚动锁 定时，用黑体显示字母 KANA。反之， 当滚动锁 定停用时，显示暗淡的字母。 上一页下一页 返回本章首页 第51页 用 LoadFile 和 SaveFile 方法可以方便地为 RichTextBox 控件打开或保存 RTF 文件。 10.5 10.5 RichTextBoxRichTextBox 控件（补充控件（补充 ） 要使用RichTextBox 控件，需要在“部件”对话框中 ，选择“Microsoft RichTextBox Control”到工具箱中。 RichTextBox 控件和标准 TextBox 控件类似,不仅能支 持所有TextBox 控件的属性、事件和方法，同时还提供 了标准 TextBox 控件不具有的、更高级的指定格式的许 多功能。 RichTextBox 控件能以 RTF 格式和普通 ASCII 文 本格式这两种形式打开和保存文件。 用 LoadFile 和 SaveFile 方法打开和保存文件 上一页 下一页 返回本章首页 第52页 打开文件