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). 单击Insert按钮，Visual Basic就会在你的工具条上显示一个空按钮，现在为你的每一个按钮重复这一步。

　　6). 单击确定按钮。

    　　如果想把按钮分组，首先生成一个分隔的按钮，再在刚才提到的对话框里将这个按钮的Style属性改为3-Separator。

（2） 为工具条增加图画

　　1). 在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的）。

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

　　3). 双击（Custom），打开ImageListCtrl属性窗口。

　　4). 选择Image标签。

　　5). 单击Insert Picture，在现在图形的对话框里选择想使用的位图或图标，然后单击打开按钮。为每个想添加图形的工具条按钮重复此步。

　　6). 单击确定按钮。

　　7). 单击工具条，按F4，双击（Custom），显示ToolBar属性对话框。

　　8). 选择General标签，在ImageList框里选择刚才添加的ImageList控件。

　　9). 选择Buttons标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。出现在工具条最左边的按钮序号为1。

　　10). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。

　　11). 为每个按钮重复第10步。

　　12). 单击确定按钮，现在Visual Basic就会在工具条上显示精美的图形了。

（3） 为工具条添加文本信息

   　 在ToolBar属性对话框中选择Buttons标签，在Caption框里输入想显示在按钮上的文本。

（4） 添加ToolTips

   　　 ToolTips是一种当点到工具按钮时弹出的小标签。ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。在刚才提到的ToolBar属性对话框中选择Buttons标签，在ToolTipText框里输入想作为ToolTip的文本。

（5） 编写代码

　　　双击工具条，以下面的格式输入代码就可以了：

　　　Private Sub Toolbar1_ButtonClick(ByVal Button As Button)

　　　　　　Select Case Button.Index

　　　　　　　　　　Case 1

　　　　　　　　　　　　　'Code to follow if user clicks the first button

　　　　　　　　　　Case 2

　　　　　　　　　　　　　　'Code to follow if user clicks the second button

　　　　　　　　　　Case 3

　　　　　　　　　　　　　　'Code to follow if user clicks the third button

　　　　　　End Select

　　　　End Sub

3．  创建进程条

 　　进程条的三个属性：

　　(1). Min属性代表进程条全空时的值，缺省时为0。

　　(2). Max属性代表进程条全空时的值，缺省时为100。

　　(3) Value属性代表进程条当前的值（不用在属性窗口里找这个属性，它不出现在属性窗口中，但它的确存在），它大于Min属性，小于Max属性。改变Value属性的值将改变进程条的进度显示。

  　 为了了解进程条的功能，在窗体里添加一个进程条和一个命令钮，双击命令钮进入代码窗口，键入如下代码：

　　　Private Sub Command1_Click()

　　　　　　　If ProgressBar1.Value < ProgressBar1.Max Then

　　　　　　　　　　ProgressBar1.Value = ProgressBar1.Value + 5

　　　　　　　　Else

　　　　　　　　　　ProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失

　　　　　　　　End If

　　　End Sub

4．  创建滑块

（1）. 选择滑块的外观

　　　1). Orientation属性决定滑块的方位，可以是垂直的或水平的滑块。

　　　2). TickStyle属性决定滑块标记的样子。

　　　3). TickFrequency属性规定了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果把值设置为3，则每三个可能值出现一个标记。

（2） 滑块的Min，Max，Value属性

     　这三个属性和进程条的这三个属性差不多，Min，Max表示滑块的最小和最大值，Value表示进程条的当前值。

（3） 滑块的LargeChange，SmallChange属性

   　  LargeChange规定了当用户用鼠标单击滑块时，滑块可移动的距离。SmallChange规定了用户按左箭头或右箭头时滑块的移动距离。

5. 创建TabStrip页框控件

（1） 设置样式

  　 在TabStrip属性窗口里选择General标签，在Style列表框里选择Tabs或Buttons样式。

（2） 规定TabStrip的标题和ToolTips

　　1). 在TabStrip属性窗口里选择Tabs标签，在Caption框里输入标题。

　　2). 在TabStrip属性窗口里选择Tabs标签，在ToolTipText框里输入ToolTip。

（3） 增减标签总数

  　  在TabStrip属性窗口里选择Tabs标签，单击Insert Tab按钮增加标签，单击Remove Tab按钮删除标签。

（4） 在TabStrip上显示图形

　　1) 在窗体里拖入一个ImageList控件，

　　2) 按F4打开属性窗口。

　　3) 双击（Custom），打开ImageListCtrl属性窗口并选择Image标签。

　　4) 单击Insert Picture，在现在图形的对话框里选择想使用的位图或图标，然后单击打开按钮。为每个想添加图形的Tab按钮重复此步。

　　5) 单击确定按钮。现在ImageList里存储了需要的图形。

　　6) 选择TabStrip，进入TabStrip属性窗口并选择General标签，在ImageList列表框里选择ImageList1。

　　7) 现在选择Tabs标签，单击紧挨Index框的向左或向右箭头以选择一个Tab序号。在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。

　　8) 单击确定按钮。

（5） 用户响应

   　 可用类似下面的代码来识别用户在哪一个项目上单击。

　　Private Sub TabStrip1_Click()

　　　　　Select Case TabStrip1.SelectedItem.Index

　　　　　　　　　Case 1

　　　　　　　　　　　　'Code to follow if user clicks the first tab

　　　　　　　　　Case 2

　　　　　　　　　　　　'Code to follow if user clicks the second tab

　　　　　　　　　Case 3

　　　　　　　　　　　　'Code to follow if user clicks the third tab

　　　　　End Select

      End Sub

（6） 在TabStrip上放置其它控件

    　在用户选择了标签后，TabStrip要求编写代码来显示或隐藏控件。下面的代码上是一个TabStrip上有一个命令钮和一个选项钮的例子，当用户选择了第一个Tab时，选项钮出现，当用户选择了第二个Tab时，命令钮出现。

　　　Private Sub TabStrip1_Click()

　　　　　Select Case TabStrip1.SelectedItem.Index

　　　　　　Case 1

　　　　　　　　　Command1.Visible = False

　　　　　　　　　Option1.Visible = True

　　　　　　Case 2

　　　　　　　　　Command1.Visible = True

　　　　　　　　　Option1.Visible = False

　　　　End Select

　　　End Sub