返回目录 10.1工具栏和状态栏一工具栏的设计 4.响应 TooBar控件事件 >单击工具栏上的某个按钮,将引发 Button click事件 Private Sub Toolbar Button Click(By Val Button As MSComctlLib. Button) End Sub >根据按钮的关键字( Button. Key)或者图像值( Button Image 可判断单击的是哪个按钮,然后通过 Select Case语句进行 相应的处理 例,菜单中有一个“打开”菜单命令(名称为 mOpen), 工具栏上有一个“打开”按钮(关键字为open,图像值为 1),单击它们都执行同样的操作(执行 Open doc过程), 相应的代码如下:
10.1 工具栏和状态栏－工具栏的设计 4. 响应ToolBar控件事件 ➢ 单击工具栏上的某个按钮，将引发ButtonClick事件 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub ➢ 根据按钮的关键字(Button.Key)或者图像值(Button.Image) 可判断单击的是哪个按钮，然后通过Select Case语句进行 相应的处理 例，菜单中有一个“打开”菜单命令(名称为mOpen)， 工具栏上有一个“打开”按钮(关键字为open，图像值为 1)，单击它们都执行同样的操作(执行OpenDoc过程)， 相应的代码如下： 返回目录
返回目录 10.1工具栏和状态栏一工具栏的设计 Private Sub mOpen Click单击“打开”菜单命令 Open Doc End sub Private Sub Toolbar Button Click(By Val Button As MSComctlLib. Button) Select Case Button. Key Case“open”'或Case1,表示单击“打开”按钮 Open Doc End select “打开”按钮的关键字为open, 图像值为1 End sub
10.1 工具栏和状态栏－工具栏的设计 Private Sub mOpen_Click() '单击“打开”菜单命令 OpenDoc End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “open” '或Case 1，表示单击“打开”按钮 OpenDoc …… End Select End Sub 返回目录 “打开”按钮的关键字为open， 图像值为1
返回目录 10.1工具栏和状态栏一状态栏的设计 1.添加状态栏控件 1)“工程→部件”,选 Microsoft Windows Common Controls6.0 (2)用回在窗体上添加 Statusbar控件(通常位于窗体的底部 (3)设置窗格属性 “插入窗格”按钮:用于在状匾贝 态栏上插入窗格,最多16个 通用窗格字体「图片1 索引①) 插入窗格)删除窗格 ◆“索引”:每个窗格的编号。文 工具提示文本) ◆“文本”:样式为 sbrText时 关键字c 最小宽度):144.00 窗格中显示的文本 标记G) 实际宽度c):144.00 对齐 0- sbrlef ◆“关键字”:用于标识窗格的 样式 0- sorTex 斜面① 图片 字符串 自动调整大小0:-br01有效)回可见 ◆“样式”:设置窗格的显示状 匚确定」取消应用_帮助 态
10.1 工具栏和状态栏－状态栏的设计 1. 添加状态栏控件 (1) “工程→部件”，选Microsoft Windows Common Controls 6.0 (2) 用 在窗体上添加Statusbar控件(通常位于窗体的底部) (3) 设置窗格属性 返回目录 ◆“插入窗格”按钮：用于在状 态栏上插入窗格，最多16个 ◆“索引”：每个窗格的编号。 ◆“文本”：样式为sbrText时， 窗格中显示的文本 ◆“关键字”：用于标识窗格的 字符串 ◆“样式”：设置窗格的显示状 态
返回目录 10.1工具栏和状态栏一状态栏的设计 例如, 字节总数 回2:41 CAPS Ins 索引样式 文本 图片 说明 Sbr Text字节总数 显示固定文本 123 SorTex 运行时获得当前光标位置的值 AirTime Time.bmp显示当前时间和时钟图像 45 StrAps 显示大小写控制键的状态 SprIng 显示插入控制键的状态
10.1 工具栏和状态栏－状态栏的设计 例如， 返回目录
返回目录 10.1工具栏和状态栏一状态栏的设计 2.程序运行时在状态栏上显示信息 设置状态栏窗格属性状态栏控件名称、 Panels(索引值) 例: a. Form1 口区 11 字节总数 5 25c5 Private Sub TextI Changeo StatusBarl Panels(2).Text= Str(Len(TextIText)) End sub
10.1 工具栏和状态栏－状态栏的设计 2. 程序运行时在状态栏上显示信息 设置状态栏窗格属性 状态栏控件名称.Panels(索引值) 例： 返回目录 Private Sub Text1_Change() StatusBar1.Panels(2).Text = Str(Len(Text1.Text)) End Sub