二级VB基础教程:8.3状态栏（StatusBar）和工具栏（ToolBar）

1.状态栏的功能和组成
状态栏控件由面板对象组成，最多可以分为16个面板对象，每个面板对象可以包含文本和/或图片。控制单个窗格外观的属性包括宽度、对齐方式(文本和图片)和斜角(斜角)。此外，可以使用Style属性的七个值之一自动显示日期、时间和键盘状态等公共数据。

2.创建一个状态栏

首先在表单上绘制一个StatusBar对象，然后右键单击该对象，从快捷菜单中选择属性，进入属性页设置窗口，进行如下设置:

(1)选择窗格形状。

在“属性”窗口中选择“常规”标签，并在“样式”列表框中选择“多窗格(默认窗体)”或“单窗格简单文本窗体”。

(2)添加或删除状态栏窗格

在“属性”窗口中选择“窗格”选项卡，单击“插入窗格”按钮添加窗格，或单击“删除窗格”按钮删除窗格。

(3)在单个窗格中显示文本

在“属性”窗口中选择“常规”标签，并在简单文本框中输入要在状态栏窗格中显示的文本。代码显示的方式是:

StatusBar1。SimpleText = "要显示的内容"

(4)在多个窗格中显示文本或图形。

1).在“属性”窗口中选择“窗格”选项卡，并使用索引旁边的按钮选择窗格编号。

2).在文本框中输入要在状态栏窗格中显示的文本。代码显示的方式是:

StatusBar1。面板(x)。Text = "要显示的内容"

3).如果要连接图形，请单击浏览按钮打开图形选择对话框，选择要连接的图形，然后单击打开按钮。

(5)写代码。

如果是单窗格状态栏，当用户单击状态栏时，只需用以下事件过程进行响应:

私有Sub status bar 1 _ Click()

End Sub

如果它是一个多窗格的状态栏，有必要识别用户点击了哪个窗格。以下事件过程可用于识别用户单击了哪个窗格:

私有子状态bar 1 _ Panel click(ByVal Panel As Panel)
选择案例面板。Index
情况1

情况2

……
End Select
End Sub

3.创建工具栏

(1).创建工具栏

1)单击工具箱中的工具栏图标，将其拖动到表单的任意位置。Visual Basic会自动将工具栏移动到顶部。右键单击对象，从快捷菜单中选择属性，进入属性页设置窗口；

2)选择按钮标签并单击插入按钮。Visual Basic将在工具栏上显示一个空按钮。重复此步骤插入多个按钮；

3)单击确定按钮。如果要对按钮进行分组，请先插入一个单独的按钮，然后在对话框中将该按钮的样式属性更改为3-Separator。

(2)在工具栏中添加图片。

1).单击Visual Basic工具箱中的ImageList图标，将其拖动到窗体的任意位置(位置不重要，因为它总是不可见的)，然后右键单击对象，从快捷菜单中选择Properties，进入属性页设置窗口；

2).选择图像标签，单击“插入图片”，在“所选图形”对话框中选择要使用的位图或图标，然后单击“打开”按钮。对每个要添加图形的工具栏按钮重复此步骤。

3).单击确定按钮。

4).进入工具栏属性对话框，选择常规标签，在图像列表框中选择新添加的ImageList控件。

5).选择按钮标签，然后单击索引框旁边的向左或向右箭头，选择按钮序列号。出现在工具栏最左侧的按钮编号为1。

6).在图像框中输入一个数字。输入1显示刚才ImageList控件中的第一个图形，输入2显示刚才ImageList控件中的第二个图形。

7).对每个按钮重复步骤6，单击“确定”按钮，现在Visual Basic将在工具栏上显示漂亮的图形。

(3)向工具栏添加文本信息。

在“工具栏属性”对话框中选择按钮标签，并在“标题”框中输入要在按钮上显示的文本。

(4)添加工具提示

工具提示是一个小标签，当你点击工具按钮时弹出。工具提示非常方便，可以告诉那些新手每个按钮是干什么用的。在“工具栏属性”对话框中选择按钮标签，并在“工具提示”文本框中输入要作为工具提示的文本。

(5)写代码。

双击工具栏，并按以下格式输入代码:

private Sub toolbar 1 _ Button click(ByVal Button As Button)
选择案例按钮。Index
案例1

案例2

……
End Select
End Sub