2011年度计算机等级考试二级VB基础教程(9)

　　2.5 设计状态条、工具栏、进程条等

　　1.创建状态条

　　选中状态条，按F4键进入属性窗口，双击(Custom)可以进入主要的设置窗口SBarCtrl属性窗口。

　　(1) 选择面板形状

　　在SBarCtrl属性窗口里选择General标签，在Style列表框里选择多面板(缺省形式)或单面板简单文本形式。

　　(2) 添加或删除状态条面板

　　在SBarCtrl属性窗口里选择Panels标签，单击Insert按钮添加一个面板，或单击Remove按钮删除一个面板。

　　(3) 在单面板里显示文本

　　在SBarCtrl属性窗口里选择General标签，在SimpleText框里输入想显示在状态条面板里的文本。用代码显示的方式是：

　　StatusBar1.SimpleText = "New string to appear"

　　(4) 在多面板里显示文本或图形

　　1). 在SBarCtrl属性窗口里选择Panels标签，用Index旁的按钮选择面板序号。

　　2). 在Text框里输入想显示在状态条面板里的文本。

　　3). 如果想加入图形，单击Browse按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。

　　4). 最后按确定按钮。

　　5). 用代码显示的方式是：StatusBar1.Panels(x).Text = "New string to appear"

　　6). 编写代码

　　如果是一个单面板状态条，当用户单击状态条时，只需用下面的事件过程来响应：

　　Private Sub StatusBar1_Click()

　　End Sub

　　如果是一个多面板状态条，就需要鉴别用户单击的是哪一个面板，可用下面的事件过程来识别用户所单击的面板：

　　Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)

　　Select Case Panel.Index

　　Case 1

　　'Code to follow if user clicks the first panel

　　Case 2

　　'Code to follow if user clicks the second panel

　　Case 3

　　'Code to follow if user clicks the third panel

　　End Select

　　End Sub

　　2.创建工具栏

　　(1)建立工具条

　　1).在工具箱里单击工具条图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。

　　2).按F4键打开属性窗口。

　　3).双击(Custom)，打开ToolBar属性窗口。

　　4). 选择Buttons标签。

　　5). 单击In