零点起飞学Visual Basic之信息对话框

第10章 信息对话框信息对话框是用来显示或者接收信息的窗体。常见的信息对话框包括显示信息窗体和接收信息窗体。信息对话框一般模式化显示，用户必须选择或输入信息方可继续运行程序。学习本章，可以熟练掌握在程序开发中设计和使用各种信息对话框。10.1 什么是信息对话框Visual Basic开发应用程序中的重要组成部分是为用户显示信息和接收信息。信息对话框将提供显示信息窗体和接收信息窗体。信息对话框是Visual Basic中内置标准对话框，使用方法与函数和过程类似。显示信息对话框，如图10.1所示。图10.1 显示信息对话框【示例10-1】显示最简单的信息对话框。Msgbox 我是一个显示信息对话框说明：信息对话框还可以显示一个图标或多个选择按钮等待用户选择。提示用户确认是否删除文件窗体内有“警示”图标和“是”、“否”两个按钮，如图10.2所示。图10.2 用户选择对话框信息对话框作用非常重要，但是作用相对有限。信息对话框可以显示预定义信息和接收有限信息输入。只能使用内置4种图标和6种预定义按钮。程序在模式化显示信息对话框窗体时，处于等待状态。只有当用户作出选择后方可继续运行。10.2 显 示 信 息显示信息主要使用Msgbox()函数。本节介绍Msgbox()函数的用法。10.2.1 使用Msgbox()函数Msgbox()函数在对话框中显示消息，等待用户单击按钮，并返回一个整数值Integer告诉程序用户所选择按钮。其标准语法如下：Msgbox(Prompt,Buttons,Title,Helpfile,ConText)参数说明：Prompt为必需项，格式为字符串表达式，表示显示在对话框中的消息。Prompt的最大长度为1024个字符，由所用字符的宽度决定。如果Prompt的内容超过一行，则可以在每一行之间用回车符（Chr(13)）、换行符（Chr(10)）或是回车与换行符的组合（Chr(13)&Chr(10)）或常量（vbcrlf）将各行分隔开来。Buttons为可选项。返回值为数值表达式的总和，指定显示按钮的数目及形式、使用的图标样式、默认按钮是什么以及消息框的强制回应等。如果省略，则Buttons的默认值为0。Title为可选项。在对话框标题栏中显示的字符串表达式。如果省略Title，则将应用程序名放在标题栏中。Helpfile为可选项。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了帮助文件Helpfile，则也必须提供帮助上下文编号ConText。ConText为可选项。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了帮助上下文编号ConText，则也必须提供帮助文件Helpfile。【示例10-2】演示常见的几种预定义信息对话框。（1）最简单的Msgbox()函数只要包含提示信息文本Prompt即可。如下所示：Dim smsg As Stringsmsg=最简单的信息对话框Msgbox smsg显示提示信息（2）信息对话框窗体可以包含多个按钮Buttons。如下所示：Dim smsg As Stringsmsg=最简单的信息对话框Msgbox smsg,vbYesNoCancel显示提示信息和3个命令按钮说明：该对话框显示提示文本信息和3个CommandButton控件：“是”、“否”和“取消”按钮。表10.1所列为Msgbox()函数预定义的按钮类型和值。表10.1 Msgbox()函数按钮常常 数数值描描 述述vbOKOnly0只只显示示OK按按钮VbOKCancel1显示示OK及及Cancel按按钮VbAbortRetryIgnore2显示示Abort、Retry及及Ignore按按钮VbYesNoCancel3显示示Yes、No及及Cancel按按钮VbYesNo4显示示Yes及及No按按钮VbRetryCancel5显示示Retry及及Cancel按按钮（3）信息对话框窗体还可以包含预定义图标。代码如下：Dim smsg As Stringsmsg=最简单的信息对话框Msgbox smsg,vbExclamation+vbYesNo显示提示信息、2个命令按钮、一个警示图标说明：该对话框显示提示文本信息和警示图标以及“是”、“否”两个按钮。表10.2中所列为Msgbox()函数中预定义图标类型和值。表10.2 Msgbox()函数预定义图标常常 数数值描描 述述VbCritical16显示示Critical Message图标VbQuestion32显示示Warning Query图标VbExclamation48显示示Warning Message图标VbInformation64显示示Information Message图标（4）信息对话框窗体可以包含自定义标题。默认条件下为应用程序名称。如下所示：Dim smsg As Stringsmsg=最简单的信息对话框Msgbox smsg,vbExclamation+vbYesNo,程序标题显示提示标题注意：关于标题最好在程序标准模块中设定一个常量。在程序中直接调用该常量表示为程序名称。（5）信息对话框可以使用常量来使用参数外，还可以使用组合值来表示参数。代码如下：Dim smsg As Stringsmsg=最简单的信息对话框Msgbox smsg,52,程序标题显示一个警示图标、2个命令按钮说明：该对话框中52为常量VbExclamation的值48和常量VbYesNo的值4的总和。运行窗体如图10.3所示。图10.3 显示信息对话框10.2.2 获取Msgbox()函数返回值Msgbox()函数最重要作用是接受用户选择结果，将返回值赋予程序继续运行。带有返回值的Msgbox()函数与无返回值的Msgbox()函数相比，参数必须用括号括起来。预定义返回值如表10.3所示。表10.3 Msgbox()函数返回值通常在应用程序中，使用Visual Basic预定义常量比数值要易于辨认。如果用户在应用程序运行时选择某个按钮，可以在程序中使用这个信息。常常 数数值描描 述述vbOK1OK确确认信息信息vbCancel2Cancel取消取消vbAbort3Abort终止止vbRetry4Retry重重试vbIgnore5Ignore忽略忽略vbYes6Yes是是vbNo7No否否【示例10-3】接收信息对话框返回值。代码如下：01Dim smsg As String声明变量02smsg=最简单的信息对话框赋予变量内容03If Msgbox(smsg,vbYesNo+vbQuestion,程序标题)=vbYes Then04显示Msgbox()函数命令按钮、图标05 Msgbox 您选择了“是”按钮返回值为vbyes06Else07 Msgbox 您选择了“否”按钮返回值为vbno08End If说明：程序运行时，当用户选“是”按钮，显示信息“您选择了“是”按钮”；否则显示信息“您选择了“否”按钮”。10.2.3 Msgbox()函数应用实例Msgbox()函数在Visual Basic应用程序中是非常重要的信息函数。【示例10-4】窗体只包含一个CommandButton控件，设置其Caption属性为“退出”。当单击该按钮时，调用Msgbox()函数询问用户是否退出。如果用户选择“是”按钮，退出程序；否则，显示“程序继续运行”。（1）新建一个工程，并新建一个窗体。（2）双击工具箱中的CommandButton图标，自动在窗体中心添加一个CommandButton控件，设置Caption属性为“退出”。双击该按钮，弹出代码编辑窗口。输入以下代码：（3）按下F5键运行程序。单击“退出”按钮，弹出信息对话框，等待用户选择。运行窗体如图10.4所示。图10.4 示例10-4的运行结果（4）运行结果随用户选择的不同而不同。如果用户选择“是”按钮，程序结束；否则，显示信息“程序继续运行”。10.3 输 入 信 息在Visual Basic中使用InputBox()函数显示提示信息，等待用户输入文本信息或按下按钮，返回包含文本框内容的字符串。10.3.1 使用Inputbox()函数使用Msgbox()函数可以让用户选定指定结果。该函数只允许选择不允许更改。用户可能还需要输入信息以响应程序运行，在Visual Basic中可以使用Inputbox()函数。Inputbox()函数在信息对话框来中显示提示信息，等待用户输入正文或按下按钮，返回包含文本框内容的字符串。其标准语法如下：Inputbox(Prompt,Title,Default,Xpos,Ypos,Helpfile,ConText)参数说明：Prompt为必需项。作为对话框消息出现的字符串表达式。Prompt的最大长度是1024个字符，由所用字符的宽度决定。如果Prompt包含多个行，则可在各行之间用回车符、换行符或回车换行符的组合或常量来分隔。Title为可选项。显示对话框标题栏中的字符串表达式。如果省略Title，则把应用程序名放入标题栏中。Default为可选项。显示文本框中的字符串表达式，在没有其他输入时作为默认值。如果省略Default，则文本框为空字符串。Xpos和Ypos为可选项。指定对话框的左边、顶部与屏幕左边、顶部的距离。如果省略，则对话框会在水平和垂直方向居中。Helpfile为可选项。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供Helpfile，则也必须提供ConText。Context为可选项。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供Context，则也必须要提供Helpfile。【示例10-5】Inputbox()函数显示信息的几种形式。（1）信息对话框Inputbox()函数最少要求为Prompt，如下所示：SResult=Inputbox(输入信息)（2）信息对话框包含标题。如下所示：sResult=Inputbox(输入信息,信息标题)（3）信息对话框包含默认值。如下所示：sResult=Inputbox(输入信息,信息,默认字符串)（4）信息对话框指定屏幕显示位置。如下所示：sResult=Inputbox(输入信息,信息,默认字符串,0,0)运行窗体如图10.5所示。图10.5 示例10-5运行的结果注意：与Msgbox()函数略有不同，Inputbox()函数除了“确定”和“取消”两个按钮外没有其他按钮。10.3.2 获取Inputbox()函数返回值信息对话框Inputbox()函数最多接收输入255个字符。当用户选择“确定”按钮时，函数返回文本框的字符串；否则返回一个空字符串，忽略文本框内的内容。当应用程序运行时接收Inputbox()函数输入的数值，必须判断返回值是否为程序所需数据。如果运行程序需要字符型数据，默认返回值为字符串。【示例10-6】演示使用Inputbox()函数接收输入信息的两种情况。（1）判断返回值是否为空Len()函数。Len()函数用来判断一个表达式长度，返回值为字符串长度。如果长度为零，则表明字符串为空。如下所示：If len(str)=0 then Print 空字符串（2）判断返回值是否为数值Val()函数。Val()函数将表达式返回数值型。如果表达式包含数字或以数字开头，函数返回此数值，否则返回值为0。If Val（str）=0 thenval()转换函数，将字符转换为数值 Msgbox 输入字符不是数值不是数值显示信息Else Msgbox 输入字符为数值型数值型显示信息End if10.3.3 Inputbox()函数应用实例【示例10-7】程序窗体包含两个文本框和两个CommandButton控件。文本框用以显示文本信息，具体内容请参见第11章。一个文本框显示姓名，另一个文本框显示年龄。一个CommandButton控件显示Inputbox()函数，输入“姓名”字符串显示在“姓名”文本框。另一个CommandButton控件显示Inputbox()函数，输入“年龄”显示在“年龄”文本框。（1）新建一个工程，并新建一个窗体。（2）双击工具箱中的Textbox图标，自动在窗体中心添加一个文本框Text1。再添加一个文本框Text2。默认属性不变。（3）双击工具箱中的CommandButton图标，自动在窗体中心添加一个CommandButton控件，设置Caption属性为“输入姓名”。再添加一个CommandButton控件，设置Caption属性为“输入年龄”，如图10.6所示。图10.6 设计窗体（4）双击“输入姓名”按钮，弹出代码编辑窗口。输入以下代码：说明：代码Text1.Text中Text1为文本框名称，Text为其属性显示文本信息。该代码首先判断Inputbox函数返回值长度是否为零。如果为零，弹出提示信息；否则在Text1文本框内显示返回值。（5）双击“输入年龄”按钮，弹出代码编辑窗口。输入以下代码：说明：该段代码首先判断Inputbox()函数返回值长度是否为零。如果长度为零，弹出提示信息。通过val()函数继续判断返回值是否为数值。如果不是数值，弹出提示信息。最后将返回值赋予Text2文本框。（6）按下F5键运行程序。单击“输入姓名”按钮，弹出Inputbox对话框。在对话框的文本框内输入“张三”，单击“确定”关闭对话框。窗体中Text1文本框显示“张三”。单击“输入年龄”按钮，弹出Inputbox对话框。在对话框的文本框内输入“20”，单击“确定”关闭对话框。窗体中Text2文本框显示“20”。运行窗体如图10.7所示。图10.7 示例10-7的运行结果（7）单击“输入姓名”按钮，弹出Inputbox对话框。在对话框内不输入任何信息，直接单击“确定”关闭对话框，弹出提示信息对话框如图10.8所示。单击“输入年龄”按钮，弹出Inputbox对话框。在对话框的文本框内输入abc，单击“确定”关闭对话框，弹出提示信息对话框如图10.9所示。图10.8 提示信息窗体图10.9 提示信息窗体10.4 内置信息对话框以上几节介绍了信息对话框以及如何使用显示信息和输入信息对话框。本节介绍内置信息对话框Microsoft CommonDialog控件。该控件可以使用Windows用户所熟悉的通用对话框，如选择文件、选取字体和颜色以及控制打印机。Visual Basic开发中易于创建和使用通用对话框。10.4.1 使用CommonDialog控件内置信息对话框CommonDialog控件可以访问以下Windows标准对话框。打开（Open）对话框：允许用户选取指定文件的名称和位置。保存（Save）对话框：允许用户指定用来保存内容的文件名和路径。字体（Font）对话框：允许用户选取系统字体并设置其属性。颜色（Color）对话框：允许用户在程序中选取标准颜色或指定颜色。打印（Print）对话框：允许用户选取打印机并设置参数。帮助（Help）对话框：使用Windows帮助文件。内置信息对话框CommonDialog控件包含在Visual Basic中，但不是工具箱中的标准控件。设置该控件需要手动从部件中添加。选择“工程”|“部件”命令，弹出“部件”对话框。选择“Microsoft Common Dialog Control 6.0”复选框，单击“确定”按钮，如图10.10所示。图10.10“部件”对话框CommonDialog控件在工具箱中显示为图标。该图标的大小不能改变。其使用方法与其他控件一样。具体内容请参见第11章中有关控件的使用方法。在窗体中添加CommonDialog控件时，双击工具箱中的CommonDialog图标，即可自动在窗体中添加。其图标设计模式下可见，运行时不可见。使用CommonDialog控件最简单方法莫过于使用其属性对话框。右击窗体中的CommonDialog控件图标，弹出“属性页”对话框。用户可以在5个选项卡上输入各种相关信息，如图10.11所示。图10.11 CommonDialog属性窗体CommonDialog控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎。主要方法如表10.4所示。表10.4 CommonDialog控件主要方法以下几节分别介绍CommonDialog控件创建的各种类型对话框。方方 法法所所显示的示的对话框框ShowOpen显示示“打开打开”对话框框ShowSave显示示“另存另存为”对话框框ShowColor显示示“颜色色”对话框框ShowFont显示示“字体字体”对话框框ShowPrinter显示示“打印打印”或或“打印打印选项”对话框框ShowHelp调用用Windows帮助引擎帮助引擎10.4.2 构建文件对话框CommonDialog控件最重要的用途之一就是选取指定文件名。该对话框可以用于两种模式：打开（Open）和保存（Save as）文件。打开文件模式允许用户指定程序要选定的文件名称和位置。保存文件模式可以允许用户指定保存文件的名称和位置。1使用文件对话框打开文件应使用CommonDialog控件的ShowOpen()方法。通过指定的名称和方法来使用打开文件对话框。【示例10-8】使用打开文件对话框，代码如下：CommonDialog1.ShowOpenMsgbox 您选择的文件为：&CommonDialog1.FileName说明：CommonDialog1为控件名称。该代码弹出一个“打开”对话框，如图10.12所示。选择指定文件后，自动显示文件路径和名称信息。图10.12“打开”对话框保存文件应使用CommonDialog控件的Showsave()方法。通过指定的名称和方法来使用保存文件对话框。【示例10-9】打开保存文件对话框，代码如下：CommonDialog1.ShowSaveMsgbox 您保存的文件为：&CommonDialog1.FileName说明：该代码弹出一个“另保存”文件对话框，如图10.13所示。选择指定文件后，显示文件名称和路径信息。图10.13“另存为”对话框该对话框并不能真正打开或保存文件，只能获得文件名称和路径。用户应在程序中编写相应代码处理打开和保存文件名称和路径。2打开和保存对话框打开对话框和保存对话框如图10.12和图10.13所示。包括控件如下：磁盘和目录列表：显示当前路径文件夹。文件和目录列表：显示下一级文件夹和文件。文件名文本框：用户可以选择指定文件或手工输入文件名。类型：用户选取显示文件类型。3主要属性（1）Filter属性使用CommonDialog控件的Filter属性可选定特殊类型文件。其标准语法如下：object.Filter=dEscription1|filter1|dEscription2|filter2.参数说明：Object为必需项，表示对象名称。Filter为必需项，表示对象属性名称。Description1|filter1为必需项，Description1为表达式描述和filter1过滤表达式。二者之间必须包括一条短竖线。如“所有文本文件（*.*）|*.*”。如果有其他文件格式，中间必须同样添加一条短竖线以示过滤器表达式。【示例10-10】演示Filter属性的使用，代码如下：CommonDialog1.filter=所有word文件（*.Doc）|*.Doc|所有rtf文件（*.rtf）|*.rtf说明：该语句自动过滤显示文件格式为.Doc和.rtf文件。（2）Flags属性flags属性可以使用预定义常量。【示例10-11】演示Flags属性的使用，代码如下：CommonDialog1.flags=cdlOFNReaDonly说明：该代码常量弹出“打开”/“保存”对话框时，只读复选框初始化为选定。该标志也指示对话框关闭时只读复选框的状态。（3）Initdir属性Initdir属性显示指定目录。【示例10-12】演示Initdir属性的使用，代码如下：CommonDialog1.initdir=c:Windows说明：该代码在弹出“打开”/“保存”对话框时，自动打开指定目录c盘Windows目录。【示例10-13】演示打开一个文件和保存一个文件。（1）新建一个工程，并新建一个窗体。（2）双击工具箱中的Textbox图标，自动在窗体中心添加一个文本框Text1，属性为默认值。（3）双击工具箱中的CommandButton图标，自动在窗体中心添加一个CommandButton控件，设置Caption属性为“打开文件”。在窗体中心再添加一个CommandButton控件，设置其Caption设置为“保存文件”，如图10.14所示。图10.14 设计窗体（4）双击“打开文件”按钮，弹出代码编辑窗口，输入以下代码：说明：该代码设置初始路径为“C:Windows”，弹出“打开”文件对话框。（5）双击“保存文件”按钮，弹出代码编辑窗口，输入以下代码：说明：该代码设置初始路径为“C:Windows”，过滤显示文件为.Doc文件和.rtf文件，弹出保存文件对话框。（6）按下F5键运行程序。单击“打开文件”按钮，弹出“打开”对话框，如图10.15所示。在对话框内选择任意文件，单击“打开”按钮，关闭对话框。窗体中Text1文本框显示选择文件的路径和名称，如图10.16所示。图10.15“打开”对话框图10.16 保存文件对话框（7）单击“保存文件”按钮，弹出保存文件对话框，如图10.17所示。在对话框内选择任意文件，单击“确定”按钮关闭对话框。窗体中Text1文本框显示选择文件的路径和名称。图10.17 保存文件对话框10.4.3 构建字体对话框CommonDialog控件调用“字体”对话框将弹出一个显示当前字体属性的对话框，允许返回用户选择的字体属性，如图10.18所示。使用CommonDialog控件处理字体对话框必须设置Flags属性值。该属性将通知CommonDialog控件使用屏幕字体、打印机字体，还是二者都显示。其属性常量如表10.5所示。表10.5 字体flags常量字字 体体 设 置置数数 值常常 量量屏幕字体屏幕字体1cdlCFScreenFonts打印机字体打印机字体2cdlCFPrinterFonts二者都二者都设置置3cdlCFBoth图10.18“字体”对话框表10.6列表显示了所有“字体”对话框中属性及其说明。表10.6 字体对话框属性说明程序中调用“字体”对话框需要使用showFont方法。属属 性性解解 释说 明明Color颜色返返回回选定定字字体体的的颜色色。如如要要使使用用这个个属属性性，必必须先先将将Flags属属性性设置置为cdlCFEffectsFontBold粗体返回是否返回是否选定了粗体定了粗体FontItalic斜体返回是否返回是否选定了斜体定了斜体FontStrikethru删除线返返回回是是否否选定定删除除线。如如要要使使用用这个个属属性性，必必须先先将将Flags属属性性设置置为 cdlCFEffectsFontUnderline下划线返返回回是是否否选定定下下划划线。如如要要使使用用这个个属属性性，必必须先先将将Flags属属性性设置置为 cdlCFEffectsFontName字体名称返回返回选定字体的名称定字体的名称FontSize字体大小字体大小返回返回选定字体的大小定字体的大小【示例10-14】演示该方法的使用，代码如下：CommonDialog1.showFont使用CommonDialog控件的ShowFont方法可显示“字体”对话框。“字体”对话框用于通过指定字体、大小、颜色、样式选择字体列表中的一种字体。【示例10-15】程序更改字体名称和大小。（1）新建一个工程，并新建一个窗体。（2）双击工具箱中的label图标，自动在窗体中心添加一个标签控件label1，其Caption文本为“演示字体”。（3）双击工具箱中的CommandButton图标，自动在窗体中心添加一个CommandButton控件，设置Caption设置为“选择字体”。（4）双击“选择字体”按钮，弹出代码编辑窗口，输入以下代码：说明：该代码将弹出“字体”对话框，并将选定的字体名称和大小赋予标签控件label1的显示文字信息。（5）按下F5键运行程序。单击“选择字体”按钮，弹出“字体”对话框。在对话框内选择“黑体”，大小为“三号”，如图10.19所示。单击“确定”按钮关闭对话框。窗体中label1控件文本字体为“黑体三号字”，如图10.20所示。图10.19“字体”对话框图10.20 示例10-15的运行结果10.4.4 构建颜色对话框通过使用CommonDialog控件的ShowColor方法可显示“颜色”对话框。“颜色”对话框用以从调色板选择颜色，或是生成和选择自定义颜色，如图10.21所示。图10.21“颜色”对话框使用CommonDialog控件处理“颜色”对话框必须设置Flags属性值。该属性将通知CommonDialog控件使用何种类型颜色。通常情况下，将其设定为CdlccRGBInit即可。其属性常量如表10.7所示。表10.7“颜色”对话框flags属性说明表10.8列表列出了Visual Basic中常使用的颜色常量数值和说明。常常 数数值说 明明cdlCCFullOpen&H2显示全部的示全部的对话框，包括定框，包括定义自定自定义颜色部分色部分cdlCCShowHelpButton&H8使使对话框框显示帮助按示帮助按钮cdlCCPreventFullOpen&H4使定使定义自定自定义颜色按色按钮无效并防止定无效并防止定义自定自定义颜色色cdlCCRGBInit&H1为对话框框设置初始置初始颜色色值表10.8 常见颜色常量说明注意：使用“颜色”对话框时最好使用系统自带的易记通用的常数数值。如vbblue常量表明蓝色比&HFF0000容易记住和使用。常常 数数值说 明明vbBlack&H0黑色黑色vbRed&HFF红色色vbGreen&HFF00绿色色vbYellow&HFFFF黄色黄色vbBlue&HFF0000蓝色色vbMagenta&HFF00FF洋洋红vbCyan&HFFFF00青色青色vbWhite&HFFFFFF白色白色【示例10-16】演示如何设置标签控件背景颜色。操作过程如下所示。（1）新建一个工程，并新建一个窗体。（2）双击工具箱中的label图标，自动在窗体中心添加一个标签控件label1，设置Caption属性为“我的背景颜色会变”。（3）双击工具箱中的CommandButton图标，自动在窗体中心添加一个CommandButton控件，设置Caption属性为“选择颜色”。（4）双击“选择颜色”按钮，弹出代码编辑窗口，输入以下代码：说明：该代码弹出“颜色”对话框，用户指定标签控件label1的背景颜色为“颜色”对话框选定的颜色。（5）按下F5键运行程序。单击“选择颜色”按钮，弹出“颜色”对话框。在对话框内选择绿色图标。运行窗体如图10.22所示。图10.22 示例10-16的运行结果10.4.5 构建打印对话框通过使用CommonDialog控件的ShowPrinter方法可显示“打印”对话框。“打印”对话框可用于指定打印输出方式。可以指定被打印页的范围、打印质量、打印的份数等。该对话框还包含当前安装的打印机的信息，并允许配置或重新安装默认打印机，如图10.23所示。图10.23“打印”对话框注意：这个对话框并不给打印机传送数据，只是指定希望打印数据的情况。如果PrinterDefault属性为True，可以使用Printer对象按选定的格式打印数据。表10.9列出了“打印”对话框中包含的属性及其说明。表10.9“打印”对话框属性说明属属 性性决决 定定Copies打印的份数打印的份数FromPage开始打印开始打印页ToPage结束打印束打印页HDC所所选打印机的打印机的设备描述描述【示例10-17】显示设置打印机名称。（1）新建一个工程，新建一个窗体。（2）双击工具箱中的CommandButton图标，自动在窗体中心添加一个CommandButton控件，设置Caption属性为“选择打印机”。（3）双击“选择打印机”按钮，弹出代码编辑窗口，输入以下代码：说明：该代码设置打印分数为5份，打印第2页到第3页。使用ShowPrint方法显示“打印”对话框。最后用Msgbox函数显示当前选择打印机型号名称。（4）按下F5键运行程序。单击“选择打印机”按钮，弹出“打印”对话框。运行窗体如图10.24所示。图10.24 示例10-17的运行结果10.4.6 构建帮助对话框CommonDialog控件的ShowHelp()方法可运行Windows的帮助引擎WINHELP.EXE，并显示Helpfile属性设定的一个帮助文件。该对话框必须设定帮助文件（hlp文件）的名称和位置。【示例10-18】显示帮助文件信息。CommonDialog1.Helpfile=winhelp.hlp帮助文件名称CommonDialog1.HelpConText=22帮助文本名称说明：该代码将帮助文件设定为winhelp.hlp文件，帮助上下文ID号为22。10.5 自定义对话框CommonDialog控件提供了程序中经常使用的内置对话框。但是内置对话框功能不符合程序开发要求，用户可以在标准窗体基础上自行开发自定义对话框使其符合程序的需要。10.5.1 创建自定义对话框创建自定义对话框需遵循以下规则。窗体BorderStytle风格设置为“3-fixed dialog”。标准对话框不可以更改其大小。删除窗体Icon属性，或自行设定Icon图标。窗体“StartupPosition”属性设置为“1-centerowner”，该对话框处于父窗体的中心。添加其他必要控件显示信息。包含“确定”和“取消”按钮。用户可以参考其他Windows程序中默认对话框扩展思路设计出更为合理的自定义对话框。10.5.2 使用窗体模板创建对话框Visual Basic程序中可以使用窗体模板创建对话框，默认窗体模板如下所示。“关于”对话框：显示有关程序信息。登录对话框：接收用户输入的用户名称和密码。选项对话框：类似“属性”对话框。“日积月累”对话框：指定提示文件，显示有关程序学习和提高的信息。图10.25所示为可以添加的窗体模板。图10.25 “添加窗口”对话框10.6 小 结本章主要介绍了Visual Basic程序中显示信息Msgbox()函数、接收信息Inputbox()函数、内置信息对话框CommonDialog控件的常见用法及如何常见自定义对话框。本章重点难点如下：如何使用各种参数调用内置信息对话框CommonDialog控件。信息对话框CommonDialog控件参数众多难于掌握，需要结合实例分析和实践。第11章将介绍标准控件的引用和使用方法。