向应用程序添加工具栏 控件设计器|可插入对象 在设计视图中打打开“部件”对话 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个面板，每个面板可以 包含文本或图片 – 可以放置在应用程序的顶部、底部或 两侧 – 还可以“飘浮”在应用程序窗体的内部 显示在工具 箱中的状态 栏图标