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

二级VB基础教程:8.3状态栏（StatusBar）和工具栏（ToolBar）1． 状态栏的作用与组成 　　StatusBar 控件由 Panel（窗格） 对象组成，最多能被分成 16 个 Panel 对象，每一个 Panel 对象能包含文本和/或图片限制个别窗格的外观属性包括 Width、Alignment（文本和图片的）和 Bevel(斜面)此外，能运用 Style 属性七个值中的一个自动地显示公共数据，诸如日期、时间和键盘状态等　　2． 创建状态栏　　先在窗体上画出一个StatusBar对象，再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口，进行下面的设置：　　（1） 选择窗格形态　　在属性窗口里选择通用标签，在样式列表框里选择多窗格（缺省形式）或单窗格简洁文本形式　　（2） 添加或删除状态栏窗格　　在属性窗口里选择窗格标签，单击插入窗格按钮添加一个窗格，或单击删除窗格按钮删除一个窗格　　（3） 在单窗格里显示文本　　 在属性窗口里选择通用标签，在简洁文本框里输入想显示在状态栏窗格里的文本用代码显示的方式是：　　StatusBar1.SimpleText = "要显示的内容"　　（4） 在多窗格里显示文本或图形　　1). 在属性窗口里选择窗格标签，用索引旁的按钮选择窗格序号。

　　2). 在文本框里输入想显示在状态栏窗格里的文本用代码显示的方式是：　　StatusBar1.Panels(x).Text = "要显示的内容"　　3). 假如想加入图形，单击阅读按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮　　（5) 编写代码　　假如是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事务过程来响应：　　　Private Sub StatusBar1_Click()　　　　　　　 　　　End Sub　　假如是一个多窗格状态栏，就须要鉴别用户单击的是哪一个窗格，可用下面的事务过程来识别用户所单击的窗格：　　　Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)　　　　　 Select Case Panel.Index　　　　　　　　　 Case 1　　　　　　　　　　　　　　　 　　　　　　　　　 Case 2 　　　　　　　　　　　　　　　　 　　　　　　　　　　 ……　　　　　 End Select　　　End Sub　　3．创建工具栏　　（1）.建立工具栏　　1） 在工具箱里单击工具栏图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。

再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；　　2） 选择按钮标签，单击插入按钮，Visual Basic就会在工具栏上显示一个空按钮，重复此步插入多个按钮；　　3） 单击确定按钮假如想把按钮分组，首先插入一个分隔的按钮，再在对话框里将这个按钮的样式属性改为3-Separator　　（2） 为工具栏增加图画　　1). 在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不行见的），再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；　　2). 选择图象标签，单击插入图片，在选定图形对话框里选择想运用的位图或图标，然后单击打开按钮为每个想添加图形的工具栏按钮重复此步　　3). 单击确定按钮　　4). 进入ToolBar属性对话框，选择通用标签，在图象列表框里选择刚才添加的ImageList控件　　5). 选择按钮标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号出现在工具栏最左边的按钮序号为1　　6). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的其次个图形。

　　7). 为每个按钮重复第6步， 单击确定按钮，现在Visual Basic就会在工具栏上显示精致的图形了　　（3）为工具栏添加文本信息　　在ToolBar属性对话框中选择按钮标签，在标题框里输入想显示在按钮上的文本　　（4）添加ToolTips　　ToolTips是一种当点到工具按钮时弹出的小标签ToolTips很便利，可以告知那些新手每个按钮是干什么用的在ToolBar属性对话框中选择按钮标签，在工具提示文本框里输入想作为ToolTip的文本　　（5）编写代码　　双击工具栏，以下面的格式输入代码就可以了： Private Sub Toolbar1_ButtonClick(ByVal Button As Button)　　　　　　　 Select Case Button.Index　　　　　　　　　　　 Case 1 　　　　　　　　　　　　　　　　 　　　　　　　　　　　 Case 2 　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　 ……　　　　　　　 End Select　　　End Sub 本文来源：网络收集与整理，如有侵权，请联系作者删除，谢谢！第4页 共4页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页第 4 页 共 4 页。