重用控件：使用内置的对话框

项目
08/18/2008

更新：2007 年 11 月

在本课中，您将学习如何使用 Visual Basic 速成版中提供的一些内置对话框。可以使用这些内置对话框，而无需创建自己的对话框以使用户能够选择窗体的背景色，或创建自己的“打开文件”对话框。这将确保您的程序具有与其他基于 Windows 的程序一样的外观和行为。

有一些对话框组件可供您在应用程序中使用。可以在“工具箱”的“对话框”选项卡上找到这些组件。当将这些类型的组件添加到应用程序中时，这些组件将不会作为控件出现在窗体上，而是添加到窗体下方的组件栏中。在不可见的控件：使用组件这一课中，您将学习有关组件的更多知识。

使用 FolderBrowserDialog 组件可让用户导航到文件夹。例如，可以使用 FolderBrowserDialog 组件让用户导航到包含图形文件的任何文件夹，而不是显示 Pictures 文件夹中的图形文件的名称（如检索文件夹中文件的名称这一课中所述）。

若要显示对话框，请使用 ShowDialog 方法。可以稍后使用 DialogResult.OK 字段以检查用户是否已单击“确定”按钮。

试一试！

显示文件夹浏览器对话框

在“文件”菜单上单击“新建项目”。

将出现“新建项目”对话框。
单击“Windows 窗体应用程序”，然后单击“确定”。
将“Label”添加到窗体中，保留默认名称“Label1”。
将“Button”控件添加到窗体中，然后在“属性”窗口中更改以下属性：

属性

值

Name

FolderPath

Text

路径
将“FolderBrowserDialog”组件添加到窗体中。

FolderBrowserDialog1 出现在组件栏中。
双击此按钮以在代码编辑器中输入默认事件处理程序。

属性	值
Name	FolderPath
Text	路径

在 FolderPath_Click 事件处理程序中，添加下面的代码以显示文件夹浏览器对话框并在标签中显示所选路径。

If FolderBrowserDialog1.ShowDialog() = _
     Windows.Forms.DialogResult.OK Then

     Label1.Text = FolderBrowserDialog1.SelectedPath

End If

按 F5 运行代码。
当窗体出现时，请单击“路径”，单击列表中的文件夹，然后单击“确定”。
验证所选路径是否会出现在标签中。
关闭应用程序。

对文本应用字体

若要使用户能够从字体列表中进行选择，可以使用 FontDialog 组件。默认情况下，不提供在对话框中为字体选择颜色的功能。通过设置 ShowColor 属性可启用此功能。

显示字体对话框

将另一个“Button”控件添加到窗体中，然后在“属性”窗口中更改以下属性：

属性

值

Name

TextFont

Text

字体
将一个“FontDialog”组件添加到窗体中。

FontDialog1 出现在组件栏中。
双击“字体”按钮以在代码编辑器中输入默认事件处理程序。

属性	值
Name	TextFont
Text	字体

在 TextFont_Click 事件处理程序中，添加下面的代码以显示字体对话框，并将用户的字体更改应用于标签中的文本。

FontDialog1.ShowColor = True
If FontDialog1.ShowDialog() = _
    Windows.Forms.DialogResult.OK Then
    Label1.Font = FontDialog1.Font
    Label1.ForeColor = FontDialog1.Color
End If

按 F5 运行代码。
当窗体打开时，请单击“路径”，单击列表中的文件夹，然后单击“确定”。
单击“字体”，在对话框中选择字体和颜色，然后单击“确定”。
验证是否对标签中的文本应用了所选字体和颜色。
关闭应用程序。

对窗体应用颜色

如果要使用户能够选择一种颜色而不将该颜色应用于字体，可以使用 ColorDialog 组件。例如，可以将所选颜色应用于标签的 BackColor 属性。

显示颜色对话框

将另一个“Button”控件添加到窗体中，然后在“属性”窗口中更改以下属性：

属性

值

Name

FormColor

Text

颜色
将一个“ColorDialog”组件添加到窗体中。

ColorDialog1 出现在组件栏中。
双击“颜色”按钮以在代码编辑器中输入默认事件处理程序。
在 FormColor_Click 事件处理程序中，添加下面的代码以显示颜色对话框，并根据用户的选择更改窗体的背景色。
```
If ColorDialog1.ShowDialog() = _
    Windows.Forms.DialogResult.OK Then
    Me.BackColor = ColorDialog1.Color
End If
```
按 F5 运行代码。
当窗体打开时，请单击“颜色”，单击结果对话框中的颜色，然后单击“确定”。
验证是否对窗体应用了所选颜色。
关闭应用程序。