vb第六章2

在工具栏中的每个Button对象还有Style属性，该属性决定了按钮的行为特点。在属性页的“样式”框中可以设定按钮的Style属性，表6-4列出了五种按钮样式以及它们的说明。

表6-4 按钮样式及其说明

㈥为工具栏编写代码

当用户单击按钮（占位按钮和分隔按钮除外）时，就会触发ToolBar控件的

ButtonClick事件。可以通过按钮的Index属性或Key属性来标识被单击的按钮。在以下代码示例中，用到了一个数据控件“data1”，数据控件及其有关内容将在后面的章节中讲述。ButtonClick事件的代码如下：

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key

Case "Next"

data1.Recordset.MoveNext ‘记录指针指向下一个记录

Case "Previous"

data1.Recordset.MovePrevious ‘记录指针指向前一个记录

Case "Last"

data1.Recordset.MoveLast ‘记录指针指向最后一个记录 Case "First"

data1.Recordset.MoveFirst ‘记录指针指向第一个记录

End Select

End Sub

到此，我们已经建立了一个完整的工具栏。

㈦工具栏程序设计中的基本技巧

1.控制工具栏的隐藏和重现

在一个应用系统中往往不可能只有一个工具栏，像Microsoft Word 2000文字处理系统，它就有十几个工具栏。但是，在应用中并没有把所有的工具栏都置于屏幕之上，以免破坏用户界面的整体均衡。因此，在应用程序中对工具栏的控制技术是很重要的。

当一个窗体带有多个工具栏时，应该把最常用且最重要的工具栏作为缺省情况与窗体一起显示，而其它的工具栏虽同窗体一起加载，但并不一起显示。

在技术上实现上述要求很简单，即在设计好工具栏后，把该窗体缺省的工具栏对应的ToolBar控件的Visible属性设置为True,而其他工具栏对应的ToolBar控件的Visible属性设置为False。这样，在窗体被加载并显示在屏幕上时，只有Visible属性等于True的ToolBar控件的工具栏显示的窗体内。

根据一般的经验，对工具栏的控制是在窗体的菜单上进行的。为此都为菜单设计有“工具栏”专用的菜单项，在“工具栏”菜单的下一级菜单中列出了系统所有的工具栏，选择其中任何一个工具栏都会立刻把它显示在窗体内，再次选择此工具栏的菜单项，相应的工具栏便又消失了。可见，有关工具栏的菜单项类似于一个开关性按钮。在子菜单后面的程序编码的关键语句为：

ToolBar1.Visible=Not ToolBar1.visible

当工具栏正在被显示时，ToolBar控件的Visible属性等于True；若再次选择工具栏菜单项后，其ToolBar控件的Visible属性在上面语句的作用下变成了False，于是工具栏被隐藏。显然，再一次重复操作时，工具栏又会重现。

2.使工具栏按钮在不同状态下具有不同的图像

为了使工具栏上的按钮带有图像，当把ToolBar控件原来带有的ImageList属性与ImageList控件关联后，便可使工具栏按钮轻易地带有ImageList控件中的任何一个图像。但我们知道，工具栏按钮在操作时有好几种状态：正常的弹起状态、按下去的状态、禁用状态。当希望工具栏按钮处于不同的状态显示不同的图像时，便可使用ToolBar控件的DisableImageList属性和HotImageList属性。

DisableImageList属性和HotImageList属性分别对应ToolBar控件通用属性页对话框中的“禁用图像列表”和“热图像列表”选项。程序员正是通过此对话框进行ToolBar控件的这两个属性的设置。“禁用图像列表”用于在工具栏按钮被禁用时将载入并显示的图像；而“热图像列表”用于在工具栏按钮被按下时将载入并显示的图像。

3.使工具栏按钮隐藏与重现

如果工具栏上的按钮很多，并且超出了工具栏的宽度，或者工具栏上有些按钮只在某个特定的情况下才使用，一般的情况下，这些按钮根本没有用。因此在运行时，可以将这些按钮设置为隐藏状态。当需要它们出现时，只需在程序中把它们的Visible属性改为True即可。例如：

ToolBar1.Buttons(2).Visible=False ‘隐藏第二个按钮

4.使工具栏按钮禁用与可用

原则上，工具栏按钮可以让用户任意的选择使用，但是，按钮的有些功能是与系统的当前状态和用户的某些操作直接关联的。例如，当前记录如果是第一个记录时，则不允许向前搜索，所以“Previous”按钮应该禁用；而如果当前记录为最后一个记录时，则不允许向后搜索，所以“Next”按钮应该禁用。

使工具栏上按钮禁用可使用以下语句：

ToolBar1.Buttons(1).Enabled = False

使工具栏上按钮恢复使用的语句为：

ToolBar1.Buttons(1).Enabled = True

二、状态栏的设计

大多数的Windows应用程序都有状态栏，状态栏主要用来显示应用程序的运行状态信息以及显示有关的提示信息。一个状态栏实际上对应的是一个StatusBar控件，状态栏可位于窗体的顶部、底部或两侧，一般置于窗体的底部。一个状态栏上可包含有若干个窗格，一个窗格对应的是一个Panel对象，一个状态栏最多可包含有十六个窗格，每个窗格可以用来显示一个图像或文本。在应用程序中，状态栏主要有以下用途：

1.显示系统信息，如系统日期、时间等。

2.显示键盘的状态，如CapsLock、 NumberLock等。

3.显示文件的信息，如文件的大小、创建的日期等。

4.显示数据库表的有关情况，如记录总数，以及当前记录在数据库中的位置等。

5.显示关于RichTextBox控件的文本和字体状态的信息。

㈠状态栏设计的步骤

状态栏的设计是由StatusBar控件来完成的。与ToolBar控件一样，StatusBar 控件是Visual Basic 在它的标准版和企业般提供的专门设计状态栏的ActiveX控件。使用SatusBar控件来创建状态栏时，首先也要把该控件添加到工具箱中。不知您是否注意到，在设计工具栏时，当把ToolBar控件添加到工具箱时，实际上，ImageList控件、StatusBar控件也一起已经添加到工具箱中。其余步骤如下：

1.在窗体中添加StatusBar控件，如果要显示图形，还需添加ImageList控件。

2.在属性页中添加窗格。

在StatusBar控件上单击鼠标右键，在弹出式菜单中选择属性。进入属性页对话框后选择窗格选项，如图6-13所示，按“插入窗格”按钮，即可插入一个窗格。

3.在窗格属性页中输入相关的信息，例如：文本、工具提示文本、关键字、样式或图片等。

4.重复以上第二、第三步即可创建多个窗格。

5.如果需要，编写相关的代码。

㈡ Panel对象（窗格）某些属性的参数说明

⒈样式（Style属性）：窗格的样式属性是用来设置窗格的显示功能，如表6-5所示。

表6-5 窗格的样式属性及其说明

⒉斜面（Bevel属性）：指定Panel对象是否具有凹入的斜面、凸出的斜面或不用斜面，如表6-6所示。

表6-6窗格的斜面属性及其说明

⒊自动调整大小（AutoSize属性）：当父容器（Form控件或容器控件）的大小改变时，Panel对象本身的大小应该如何改变。其设置如表6-7所示。

表6-7 窗格的自动调整大小属性及其说明

㈢状态栏设计实例

例6-2 在前面介绍的数据查询例子中，如果要求在状态栏中显示数据库表的表名、当前记录及总记录数、时间信息，同时，当鼠标指向时间窗格时，会出现当前的日期。如图6-14所示。

⒈首先单击属性页的“插入窗格”按钮，插入第一个窗格，修改其中的属性：

自动调整大小（AutoSize）属性改为：1-sbrSpring

插入第二个窗格，修改其中的属性：

自动调整大小（AutoSize）属性改为：2-sbrContents

插入第三个窗格，修改其中的属性：

自动调整大小（AutoSize）属性改为：2-sbrContents

样式（Style）属性改为：5-sbrTime

按“确定”按钮退出“属性页”对话框。

⒉编写代码：

双击查询窗体，在窗体的Load事件中加入如下代码：

StatusBar1.Panels(1).Text = "表名：" & data1.RecordSource

StatusBar1.Panels(2).Text = CStr(data1.Recordset.AbsolutePosition) & "/" &_

CStr(data1.Recordset.RecordCount)

StatusBar1.Panels(3).ToolTipText = Year(Date) & "年" & Month(Date) & "月" &_

Day(Date) & "日"

双击工具栏，在工具栏的Click事件的代码的最后加入如下代码：

StatusBar1.Panels(2).Text = CStr(data1.Recordset.AbsolutePosition) & "/" & _

CStr(data1.Recordset.RecordCount)

第五节对话框设计

在应用程序中，对话框主要应用在以下两个方面，一是提示用户提供应用程序继续执行所需要的数据；二是向用户显示信息。例如，在V isual Basic 中，用“打开文件”对话框来显示已存在的工程。VisualBasic 中的“关于”对话框也是一个如何使用对话框来显示信息的例子。

对话框不是模式就是无模式的。所谓模式对话框，在可以继续操作应用程序的其他部分之前，必须被关闭（隐藏或卸载）。例如，如果一个对话框，在可以切换到其它窗体或对话框之前要求先单击“确定”或“取消”，则它就是模式的。无模式的对话框允许在对话框与其他窗体之间转移焦点而不用关闭对话框。无模式对话框较少使用，一般用于显示频繁使用的命令与信息。

Visual Basic的对话框设计主要有以下三种方法：

⑴使用函数设计的预定义对话框

⑵使用窗体设计的自定义对话框

⑶使用对话框控件设计的系统对话框

一、预定义对话框

使用对话框函数可以创建预定义对话框，这种方法不必考虑设计、装载或者显示对话框方面的问题，因此，具有操作简单及快速的特点。然而，控件在其外观上要受到限制。预定义的对话框总是模式的。Visual Basic提供的预定义对话框有两种：信息对话框和输入对话框。分别使用MsgBox函数和InputBox函数。

㈠信息对话框

在应用程序中，有时需要显示一些简单的信息如警告或错误信息等，此时可以利用“信息对话框”来显示这些内容。当用户接收到信息后，可以单击按钮来关闭对话框，并返回单击的按钮值。

1．函数格式

MsgBox([，][，