VB13章幻灯片.pptVIP

（3）为工具栏增加按钮 打开“属性页”上的“按钮”选项卡（参见左图），单击“插入按钮”，可以在工具栏上插入按钮。 值 常数 按钮 说明 0 tbrDefault 普通按钮 按下按钮后恢复原状，如“新建”按钮 1 tbrCheck 开关按钮 按下按钮后保持按下状态，如“加粗”等按钮 2 tbrButtonGroup 编组按钮 在一组按钮中只能有一个有效，如对齐方式按钮 3 tbrSepatator 分隔按钮 将左右按钮分隔开 4 tbrPlaceholder 占位按钮 用来安放其它按钮，可以设置其宽度（width） 5 tbrdropdown 菜单按钮 具有下拉菜单，如Word中的“字符缩放”按钮 图： Toolbar控件“按钮”选项卡 图： 工具栏实例 表： 按钮样式 3. 响应Toolbar控件的事件 Toolbar控件的主要事件有ButtonClick 事件（对应按钮样式0-2）和ButtonMenuClick 事件（对应按钮样式5）。由于工具栏上的按钮为控件数组，故既可以用索引（Index属性），也可以用关键字（Key属性）来识别按钮，但要注意用户可用“自定义工具栏”对话框重新安排按钮对象，Index 属性值可能并不一定总指示按钮的位置。因此，最好的方法是用 Key 属性值识别按钮对象。 下列的ButtonClick 事件代码就用到按钮对象的Key 属性（假设在Form1窗体上增添了通用对话框控件CommonDialog1）。 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case TNew Form1.CommonDialog1.ShowNew Case TOpen Form1.CommonDialog1.ShowOpen …… End Select End Sub ButtonMenuClick 事件的语法格式类似为： Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) …… End Sub 1. StatusBar 控件 StatusBar 控件就是一个窗体，该窗体通常放在父窗体的底部，或通过其Align属性设置其出现的位置。通过StatusBar 控件，应用程序能显示各种状态数据。StatusBar 控件由面板（Panel） 对象组成，一个StatusBar 控件最多可以有16个Panel 对象，每一个 Panel 对象都可包含文本和/或图片。可以控制每个Panel对象的外观属性，包括 Width、Alignment（文本和图片的）和 Bevel（文本显示的样式）。还可以使用 Style 属性值中的一个自动地显示公共数据。 2. 状态栏的建立 在设计时，在窗体上增加 StatusBar 控件，并在其属性页的“窗格”选项卡中进行必要的设置，以建立面板并定制它们的外观。 图10-22 状态栏实例 在运行时，也可以重新配置 Panel 对象以反映不同的功能，这些功能取决于应用程序的状态。在本例中，第2、4、6个面板中显示的文本将根据用户选择的电脑配件类型，由应用程序给出。 状态栏（StatusBar 控件） 数表示）。 表： 状态栏的Style属性 常数 值 描述 sbrText 0 （缺省）。文本和/或位图。用 Text 属性设置文本。 sbrCaps 1 Caps Lock 键。当激活 Caps Lock 时，用黑体显示字母 CAPS，反之，当停用 Caps Lock 时，显示暗淡的字母。 sbrNum 2 Number Lock。当激活数字锁定键时，用黑体显示字母 NUM，反之，当停用数字锁定键时，显示暗淡的字母。 sbrIns 3 Insert 键。当激活插入键时，用黑体显示字母 INS。反之，当停用插入键时，显示暗淡的字母。 sbrScrl 4 Scroll Lock 键。当激活滚动锁定时，用黑体显示字母 SCRL，反之，当停用滚动键时，显示暗淡的字母。 sbrTime 5 Time。以系统格式显示当前时间。 sbrDate 6 Date。以系统格式显示当前日期。 sbrKana 7 Kana。当激活滚动锁定时，用黑体显示字母 KANA。反之，当滚动锁定停用时，显示暗淡的字母。 图10-22 状态栏实例 图： 状态栏“窗格”选项卡 图：即为设计好的状态栏，包括6个面板。 * VB程序设计讲课提纲 Visual Basic 6.0 程序设计 浙江大学理学院 讲课人：朱静芬 Email:zjfz