Visual Basic 工具栏、对话框

【 tulaoshi.com - 编程语言 】

　　工具栏

　　可以用工具栏进一步增强应用程序的菜单界面。工具栏含有工具栏按钮，它提供了对于应用程序中最常用的命令的快速访问。例如：Visual Basic 的工具栏含有执行常用命令的 ToolBarButton，如打开（打开已存在的工程）、保存（存储当前的工程），等等。

　　创建工具栏

　　工具栏（也称为发条或者控制栏）已经成为许多基于 Windows 的应用程序的标准功能。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。使用 ToolBar 控件来创建工具栏非常容易且很方便，它在 Visual Basic的专业版与企业版中是可用的。如果使用的是 Visual Basic 学习版，则可以像本章后面的协调菜单与工具栏的外观所描述的那样用手工来创建工具栏。

　　下列示例演示为 MDI 应用程序创建工具栏的过程；在标准窗体上创建一个工具栏的过程基本上一样。

　　要手工创建工具栏，请按照以下步骤执行：

　　1. 在 MDI 窗体上放置一个图片框。图片框的宽度会自动伸展，直到填满 MDI 窗体工作空间。工作空间就是窗体边框以内的区　域，不包括标题条、菜单栏或所有的工具栏、状态栏或者可能在窗体上的滚动条。

　　注意 只能把那些直接支持 Align 属性的控件放置在 MDI 窗体上（图片框是支持这一属性的唯一的标准控件）。

　　2. 在图片框中，可以放置任何想在工具栏上显示的控件。典型地，用 CommandButton 或 Image 控件来创建工具栏按钮。图 　6.16表示出了一个含有 Image 控件的工具栏。

　　要在图片框中添加控件，单击工具栏中的控件按钮，然后在图片框中画出它。

　　注意 当 MDI 窗体中包含了图片框时，该 MDI 窗体的内部区域不包括图片框在内。例如：MDI 窗体的 ScaleHeigh 属性返回 MDI 窗体的内部高度，这个高度已不包括图片框的高度。

　　3. 设置设计时属性。

　　使用工具栏的一个好处是可以显示一个形象的命令图示。Image 控件是作为工具栏按钮的一个很好的选择，因为可以用它来显示一个位图。在设计时设置其 Picture 属性来显示一个位图；这样，当该按钮被单击时，即能提供一个命令执行的可见信息。也可以通过设置按钮的 ToolTipText属性来使用工具提示，这样，当用户把鼠标指针保持在一个按钮上时，就可以显示出该工具栏按钮的名称。

　　4. 编写代码

　　因为工具栏频繁地用于提供对其它命令的快捷访问，因而在大部分时间内都是从每一个按钮的 Click 事件中调用其它过程，比如对应的菜单命令。

　　提示 可用一个不显示工具栏的 MDI 窗体来使用在运行时不可见的控件（比如 Timer 控件）。为了做到这一点，在 MDI 窗体上放置一个图片框，把控件放到图片框中，然后把图片框的 Visible 属性设置为 False。

　　编写工具栏的代码

　　工具栏用于提供访问某些应用程序命令的快捷方法。例如：图 6.16 中工具栏上的第一个按钮就是新建文件命令的快捷键。现在，可以在 MDINotePad 示例应用程序中三个地方请求创建新文件。

　　1.在 MDI 窗体上（MDI 窗体上文件菜单中的新建命令）。

　　2.在子窗体上（在子窗体文件菜单上的新建命令）。

　　3.在工具栏上（新建文件按钮）。

　　与其把这个代码重复三次，还不如从子窗体的 mnuFileNew_Click 事件取出原代码，然后把它放入子窗体的一个公用过程中。可以从上面任何一个事件过程调用这个过程。以下是一个示例：

　　'这个例程在公共过程中。

　　Public Sub FileNew ()　　Dim frmNewPad As New frmNotePad　　frmNewPad.Show　　End Sub　　'在子窗体的文件菜单上选取新建。　　Private Sub mnuchildFileNew_Click ()　　FileNew　　End Sub　　'在 MDI 窗体的文件菜单上选取新建。　　Private Sub mnumdiFileNew_Click ()　　frmNotePad.FileNew　　End Sub　　'在工具栏上单击新建文件按钮。　　Private Sub btnFileNew_Click ()　　frmNotePad.FileNew　　End Sub

　　协调菜单与工具栏的外观

　　当由其它应用程序提供的对象在窗体中被激活时，有许多方法让对象的菜单与工具栏出现在容器窗体内；然而，需要规定它们将如何显示。这一过程叫做用户界面协调，因为 Visual Basic 与已经链接或嵌入的对象必须协调容器窗体中的空间。

　　控制菜单的外观

　　通过设置窗体的 NegotiateMenus 属性可以决定一个链接或嵌入的对象的菜单是否出现在容器窗体中。如果子窗体的 NegotiateMenus 属性置为 True（缺省），而且容器有一个定义的菜单栏，那么，当这个对象被激活时，它的菜单就放置在容器的菜单栏中。如果容器没有菜单栏，或者NegotiateMenus 属性被设置为 False，那么，当这个对象激活时对象的菜单将不出现。

　　注意 NegotiateMenus 属性不适用于 MDI 窗体。

　　控制工具栏的外观

　　MDI 窗体的 NegotiateToolbars 属性决定了链接或嵌入对象的工具栏是不固定的调色板还是被放置在父窗体上。这种性能不要求工具栏出现在 MDI 父窗体上。如果 MDI 窗体的 NegotiateToolbars 属性设为 True，则对象的工具栏出现在 MDI 父窗体上。如果 NegotiateToolbars 设为 False，则对象的工具栏就为不固定的调色板。

　　注意 NegotiateToolbars 属性只用于 MDI 窗体。

　　如果 MDI 窗体包含工具栏，它通常被包含在父窗体的 PictureBox 控件中。图片框的 Negotiate 属性决定了被激活时容器的工具栏是继续显示还是被对象的工具栏所代替。如果 Negotiate 设置为 True，则除了容器的工具栏外还显示对象的工具栏。如果 Negotiate 设置为 False，则对象的工具栏代替容器的工具栏。

　　注意 菜单与工具栏的协调只发生在支持现场激活的可插入对象之上。有关现场激活的详细信息，请参阅第十章用部件编程。用以下过程可以看到这三个属性如何交互作用。

　　要执行菜单与工具栏的协调，请按照以下步骤执行：

　　1. 在 MDI 窗体中添加工具栏。这在本章前面的创建工具栏中描述过。

　　2. 在子窗体上放置一个可插入的对象。

　　3. 设置 NegotiateMenus、NegotiateToolbars 以及 Negotiate 属性。

　　4. 运行此应用程序，然后双击该对象。

　　对话框

　　在基于 Windows 的应用程序中，对话框被用来：

　　提示用户提供应用程序继续执行所需要的数据。

　　向用户显示信息。

　　例如，在 Visual Basic 中，用打开文件对话框来显示已存在的工程。VisualBasic 中的关于对话框也是一个如何使用对话框来显示信息的例子。在菜单栏上单击帮助，选择关于 Visual Basic菜单项，则显示关于对话框。

　　模式与无模式的对话框

　　对话框不是模式就是无模式的。模式对话框，在可以继续操作应用程序的其他部分之前，必须被关闭（隐藏或卸载）。例如，如果一个对话框，在可以切换到其它窗体或对话框之前要求先单击确定或取消，则它就是模式的。

　　Visual Basic 中的关于对话框是模式的。显示重要消息的对话框总应当是模式的那就是说，在继续做下去之前，总是要求用户应当先关上对话框或者对它的消息作出响应。

　　无模式的对话框允许在对话框与其他窗体之间转移焦点而不用关闭对话框。当对话框正在显示时，可以在当前应用程序的其他地方继续工作。无模式对话框很少使用。Visual Basic 中编辑菜单中的查找对话框就是一个无模式对话框的实例。无模式对话框用于显示频繁使用的命令与信息。

　　要将窗体作为模式对话框显示，请

　　1.使用 Show 方法，其 style 参数值为 vbModal（一个值为 1 的常数）。例如：

　　'将 frmAbout 作为模式对话框显示。

　　frmAbout.Show vbModal

　　要将窗体作为无模式对话框显示，请

　　2.使用不带 style 参数的 Show方法。

　　例如：

　　'将 frmAbout 作为无模式对话框显示。

　　frmAbout.Show

　　注意 如果窗体显示为模式对话框，则只有当对话框关闭之后，在 Show 方法后的代码才能执行。然而，当窗体被显示为无模式对话框时，在该窗体显示出来以后，Show 方法后面的代码紧接着就会执行。

　　Show 方法另有一个可选参数，owner，可用来指定窗体的父子关系。可将某个窗体名传给这个参数，使得这个窗体成为新窗体的拥有者。要显示一个窗体，作为另一个窗体的子窗体，请

　　这里 Show 方法有两个参数：style 和 owner。

　　例如：

　　' 将 frmAbout 显示为 frmMain 的无模式子窗体。

　　frmAbout.Show vbModeless, frmMain

　　在 Show 方法中使用 owner 参数，确保对话框在它的父窗体最小化时它也最小化，或者在其父窗体关闭时它也卸载。

　　预定义对话框的使用

　　在应用程序中添加对话框最容易的方法是使用预定义对话框，因为不必考虑设计、装载或者显示对话框方面的问题。然而，控件在其外观上要受到限制。预定义的对话框总是模式的。

　　下表列出了 Visual Basic 应用程序中添加预定义对话框时能使用的函数。

　　用输入框来提示输入

　　应用 InputBox 函数请求提供数据。这个函数显示要求输入数据的模式对话框。图 6.17 所示的文本输入框提示输入要打开文件的名称。

　　以下代码显示图 6.17 中所示的输入框。

　　FileName = InputBox("Enter file to open:", "File Open")

　　注意 切记当使用 InputBox 函数时，对对话框的各部分的控制非常有限。只能改变标题栏中的文本、显示给用户的命令提示、对话框在屏幕上的位置以及它是否显示一个帮助按钮。

　　详细信息 请参阅《语言参考》的InputBox 函数。

　　用消息对话框显示信息

　　可以用 MsgBox 函数获得是或者否的响应，并显示简短的消息，比如：错误、警告或者对话框中的期待。看完这些消息以后，可选取一个按钮来关闭该对话框。

　　如果文件不能打开，那么名为 Text Editor 的应用程序就会显示如图 6.18 所示的消息对话框。

　　以下代码显示如图 6.18 所示的消息框：

　　MsgBox "Error encountered while trying to open file, _

　　please retry.", vbExclamation, "Text Editor"

　　注意 所谓模式的，既可以局限于应用程序中，也可以局限于系统中。如果消息框的模式局限在应用程序中（缺省），则在这个对话框未消失之前不能切换到该应用程序的其他部分，但是可以切换到其他应用程序。在消息框未消失之前系统的模式消息框不允许切换到别的应用程序。

　　详细信息 请参阅《语言参考》的MsgBox 函数。

　　用窗体作为自定义对话框

　　自定义对话框就是用户所创建的含有控件的窗体这些控件包括命令按钮、选取按钮和文本框它们可以为应用程序接收信息。通过设置属性值来自定义窗体的外观。也可以编写在运行时显示对话框的代码。

　　要创建自定义对话框，可以从新窗体着手，或者自定义现成的对话框。如果重复过多，可以建造能在许多应用程序中使用的对话框的集合。

　　要自定义现存的对话框，请按照以下步骤执行：

　　1. 从工程菜单中选取添加窗体，在工程中添加一现存的窗体。

　　2. 从文件菜单中选取filename 另存为并输入新的文件名（这可以防止改变已存在的窗体版本）。

　　3. 根据需要自定义窗体的外观。

　　4. 在代码窗口中自定义事件过程。

　　要创建新的对话框，请按照以下步骤执行：

　　1. 从工程菜单中选取添加窗体。

　　- 或者 -

　　在工具栏上单击窗体按钮，创建新的窗体。

　　2. 如有必要，自定义窗体外观。

　　3. 在代码窗口中自定义事件过程。

　　有很大的自由来定义自定义对话框的外观。它可以是固定的或可移动的、模式或无模式的。它可以包含不同类型的控件；然而，对话框通常不包括菜单栏、窗口滚动条、最小化与最大化按钮、状态条或者尺寸可变的边框。本主题余下的部分将讨论创建典型类型的对话框方法。

　　添加标题

　　对话框总应当有标识它的标题。要创建标题，设置该窗体的 Caption 属性为将在标题条中显示的文本字符串。通常，这一步是在设计时使用属性窗口来完成的，但也可以用代码来完成这一步。例如：

　　frmAbout.Caption = "About"

　　提示 如果想完全删除此标题栏，可以设置窗体的 ControlBox、MinButton 和MaxButton 为 False；设置 BorderStyle 为尺寸不可变的设置（0、1 或 3），并设置 Caption 为空字符串 ("")。

　　设置标准对话框的属性

　　一般来说，用户响应对话框时，先提供信息，然后用确定或者取消命令按钮关闭对话框。因为对话框是临时性的，用户通常不需要对它进行移动、改变尺寸、最大化或最小化等操作。其结果是：随新窗体出现的可变尺寸边框类型、控制菜单框、最大化按钮以及最小化按钮，在大多数对话框中都是不需要的。

　　通过设置 BorderStyle、ControlBox、MaxButton 和 MinButton 属性，可以删除这些项目。例如，关于对话框可能使用以下的属性设置。

　　记住，如果删除控制菜单框 ( ControlBox = False )，则必须向用户提供退出该对话框的其它方法。实现的办法通常是在对话框中添加确定、取消或者退出命令按钮，并在隐藏或卸载该对话框的 Click 按钮事件中添加代码。

　　添加和放置命令按钮

　　模式对话框必须至少包含一个退出该对话框的命令按钮。通常用两个命令按钮：其中一个按钮开始动作，而另一个按钮关闭该对话框而不做任何改变。典型状态是，这两个按钮的 Caption 属性设置确定与取消。在这个方案中，确定命令按钮的 Default 属性设置为 True，而 Cancel 命令按钮的 Cancel 属性设置为 True。虽然确定与取消是最常用的按钮，其他的按钮标题组合也可使用。

　　显示消息的对话框通常使用 Label 控件来显示错误消息或者命令提示，并且用一至两个命令按钮来执行动作。例如，也许给标识的 Caption 属性赋以错误消息或者命令提示，而给两个命令按钮控件的 Caption 属性指定是与否。当用户选取是，则发生一个动作，当选取否时，则发生另一个动作。

　　这种类型对话框的命令按钮通常被放置在对话框的底部或右边，而顶部或左边的按钮为缺省按钮，如图 6.19 所示。

　　设置缺省、取消和焦点

　　命令按钮控件提供了以下的属性：

　　Default

　　Cancel

　　TabIndex

　　TabStopDefault

　　按钮就是当用户按下 ENTER 键时选中的按钮。在一个窗体上，只能有一个命令按钮的 Default 属性可以设置为 True。按下 ENTER 键就调用缺省命令按钮的 Click 事件。这个功能连同编辑控件（比如 TextBox ）一起工作。例如，可以在文本框中键入数据，然后按下 ENTER 键来产生Click 事件，以取代选取确定按钮。

　　取消按钮就是当按下 ESC 键时选中的按钮。在一个窗体上，只能有一个命令按钮的 Cancel 属性可以设置为 True。按下 ESC 键调用取消命令按钮的 Click 事件。取消按钮也可以为缺省命令按钮。要指定对话框的取消按钮，设置该命令按钮的 Cancel 属性为 True。

　　提示 一般说来，代表最可靠的或者最安全的操作的按钮应当是缺省按钮。例如，在文本替换对话框中，取消应当是缺省按钮，而不是全部替换。

　　也可以指定当对话被显示时具有焦点的按钮。当窗体被显示时，带有最低的 TabIndex 设置的控件接收焦点。按下 ENTER 键会调用缺省命令按钮或者有焦点的命令按钮的 Click 事件。要在窗体被显示时将焦点给某个命令按钮，则设置该命令按钮的 TabIndex 为 0，它的 TabStop 属性为 True。也可以用 SetFocus 方法在窗体被显示时将焦点给指定的控件。

　　详细信息 请参阅《语言参考》的TabIndex 属性与TabStop 属性。