北大青鸟：《VB程序设计》培训资料（PPT讲稿）第八章 工具栏、状态栏和多文档窗口

北大青鸟 7E/ 第八章 工具栏、状态栏和多文档窗口 Ⅴ ersion3.0 CHANGE题

Version 3.0 第八章

回顾 设计菜单和编写菜单代码 设计和使用窗口中的弹出菜单 使用系统对话框输入数据 ·使用对话框控件 设计和使用自定义对话框 北大青鸟 FE-

• 设计菜单和编写菜单代码 • 设计和使用窗口中的弹出菜单 • 使用系统对话框输入数据 • 使用对话框控件 • 设计和使用自定义对话框

目标 使用以下控件增加界面设计: 工具栏 状态栏 单文档窗口与多文档窗口之间的区别 设计和使用多文档窗口 北大青鸟 FE-

• 使用以下控件增加界面设计： – 工具栏 – 状态栏 • 单文档窗口与多文档窗口之间的区别 • 设计和使用多文档窗口

工具栏 通常位于菜单栏下 ·提供工具栏按钮的目的 提供对应用程序中常用菜单命令的 快速访问 提供图形界面,方便用户访间常用工具箱中显 的应用程序功能 图标 个应用程序可以有多个工具栏 可以使其显示“工具提示 即提供工具栏按钮用途简短文本说 明的小型弹出式窗口 北大青鸟 FE-

• 通常位于菜单栏下 • 提供工具栏按钮的目的： – 提供对应用程序中常用菜单命令的 快速访问 – 提供图形界面，方便用户访问常用 的应用程序功能 • 一个应用程序可以有多个工具栏 • 可以使其显示“工具提示 – 即提供工具栏按钮用途简短文本说 明的小型弹出式窗口 工具箱中显 示的工具栏 图标

Vsua|Basc|DE中的工具栏 编辑窗体编辑器标准工具栏工具提示调试工具栏 工程1 Microsoft Visual Basic[设计]-[om1(Form) 文件体日视图工程⊙格式④调试(运行8)查(0图表0工D外接程序窗帮助6x %%%Ⅲ 叫口回 General &. FormI 工程资源管理惑 回x 回国白 工程1程1 a abl 日⑤窗体 a Forel ( Forel) 5 北大青鸟

编辑 窗体编辑器 标准工具栏 工具提示 调试工具栏

向应用程序添加工具栏 控件设计器|可插入对象 在设计视图中打打开“部件”对话 OMSFlexGrld wizar condia unicast control 开窗体 框,并选中 厂只显示选定项() Mi crosoft windows C Controls 6.0 (P3) Microsoft Windows “组件”对话框 Common Controls60” 选项 Frist Form Ex优 New Save Exit 双击工具栏图标, 使用工具栏“属性 或者通过拖放来 页”对话框添加工 添加工具栏控件 具栏按钮 带工具栏和工具 栏按钮的窗体 北大青鸟

在设计视图中打 开窗体 打开“部件”对话 框，并选中 “Microsoft Windows Common Controls 6.0” 选项 双击工具栏图标， 或者通过拖放来 添加工具栏控件 使用工具栏“属性 页”对话框添加工 具栏按钮 “组件”对话框 带工具栏和工具 栏按钮的窗体

工具栏和工具栏按钮属性 工具栏特有的属性: Style TextAlignment ToolTipText ·工具栏按钮特有的属性 Index Style Value 北大青鸟 FE-

• 工具栏特有的属性： – Style – TextAlignment – ToolTipText • 工具栏按钮特有的属性： – Index – Style – Value

工具栏方法和事件 方法 事件 Move Button click Drag Private Sub Toolbar1 Button Click(By Val 示例 Button As MSComctlLib. Button) If Button Index =o Then AsgBoX("First Button Clicked) Elself Button Index =1 Then MsgBox(The Second Button) Elself Button Index =2 Then MsgBox(“ The third Button clicked”) End If End Sub 北大青鸟 FE-

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Index = 0 Then MsgBox(“First Button Clicked”) ElseIf Button.Index = 1 Then MsgBox(“The Second Button”) ElseIf Button.Index = 2 Then MsgBox(“The Third Button Clicked”) End If End Sub 示例 方法 事件 Move Drag ButtonClick

演示 请在VB中演示 如何向应用程序添加工具栏 设计工具栏 添加提示文本 北大青鸟 FE-

• 请在VB中演示 – 如何向应用程序添加工具栏 – 设计工具栏 – 添加提示文本

状态栏 通常显示在窗体的底部 告知用户应用程序的状态 可以划分为多个部分,每一部分称 为一个面板 · Visua| Basic特有的状态栏控件功能 显示在工具 最多可分成16个面板,每个面板可以箱中的状态 包含文本或图片 栏图标 可以放置在应用程序的顶部、底部或 两侧 还可以“飘浮在应用程序窗体的内部 10 北大青鸟 FE-

• 通常显示在窗体的底部 • 告知用户应用程序的状态 • 可以划分为多个部分，每一部分称 为一个面板 • Visual Basic 特有的状态栏控件功能 – 最多可分成16个面板，每个面板可以 包含文本或图片 – 可以放置在应用程序的顶部、底部或 两侧 – 还可以“飘浮”在应用程序窗体的内部 显示在工具 箱中的状态 栏图标