零点起飞学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 String,smsg =,最简单的信息对话框,Msgbox,smsg,显示提示信息,（,2,）信息对话框窗体可以包含多个按钮,Buttons,。如下所示：,Dim smsg As String,smsg = ,最简单的信息对话框,Msgbox smsg,vbYesNoCancel,显示提示信息和,3,个命令按钮,说明：该对话框显示提示文本信息和,3,个,CommandButton,控件：“是”、“否”和“取消”按钮。,表,10.1,所列为,Msgbox(),函数预定义的按钮类型和值。,表,10.1 Msgbox(),函数按钮,常,数,值,描,述,vbOKOnly,0,只显示,OK,按钮,VbOKCancel,1,显示,OK,及,Cancel,按钮,VbAbortRetryIgnore,2,显示,Abort,、,Retry,及,Ignore,按钮,VbYesNoCancel,3,显示,Yes,、,No,及,Cancel,按钮,VbYesNo,4,显示,Yes,及,No,按钮,VbRetryCancel,5,显示,Retry,及,Cancel,按钮,（,3,）信息对话框窗体还可以包含预定义图标。代码如下：,Dim smsg As String,smsg = ,最简单的信息对话框,Msgbox smsg, vbExclamation,+ vbYesNo,显示提示信息、,2,个命令按钮、一个警示图标,说明：该对话框显示提示文本信息和警示图标以及“是”、“否”两个按钮。,表,10.2,中所列为,Msgbox(),函数中预定义图标类型和值。,表,10.2 Msgbox(),函数预定义图标,常,数,值,描,述,VbCritical,16,显示,Critical Message,图标,VbQuestion,32,显示,Warning Query,图标,VbExclamation,48,显示,Warning Message,图标,VbInformation,64,显示,Information Message,图标,（,4,）信息对话框窗体可以包含自定义标题。默认条件下为应用程序名称。如下所示：,Dim smsg As String,smsg = ,最简单的信息对话框,Msgbox smsg, vbExclamation + vbYesNo,程序标题,显示提示标题,注意：关于标题最好在程序标准模块中设定一个常量。在程序中直接调用该常量表示为程序名称。,（,5,）信息对话框可以使用常量来使用参数外，还可以使用组合值来表示参数。代码如下：,Dim smsg As String,smsg = ,最简单的信息对话框,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,预定义常量比数值要易于辨认。如果用户在应用程序运行时选择某个按钮，可以在程序中使用这个信息。,常,数,值,描,述,vbOK,1,OK,确认信息,vbCancel,2,Cancel,取消,vbAbort,3,Abort,终止,vbRetry,4,Retry,重试,vbIgnore,5,Ignore,忽略,vbYes,6,Yes,是,vbNo,7,No,否,【,示例,10-3,】,接收信息对话框返回值。代码如下：,01,Dim smsg As String,声明变量,02,smsg = ,最简单的信息对话框,赋予变量内容,03,If Msgbox(smsg, vbYesNo + vbQuestion, ,程序标题,),= vbYes,Then,04,显示,Msgbox(),函数命令按钮、图标,05,Msgbox ,您选择了“是”按钮,返回值为,vbyes,06,Else,07,Msgbox ,您选择了“否”按钮,返回值为,vbno,08,End 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 then,val(),转换函数，将字符转换为数值,Msgbox,输入字符不是数值,不是数值显示信息,Else,Msgbox,输入字符为数值型,数值型显示信息,End,if,10.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.ShowOpen,Msgbox ,您选择的文件为：, & CommonDialog1.,说明：,CommonDialog1,为控件名称。该代码弹出一个“打开”对话框，如图,10.12,所示。选择指定文件后，自动显示文件路径和名称信息。,图,10.12,“打开”对话框,保存文件应使用,CommonDialog,控件的,Showsave(),方法。通过指定的名称和方法来使用保存文件对话框。,【,示例,10-9,】,打开保存文件对话框，代码如下：,CommonDialog1.ShowSave,Msgbox ,您保存的文件为：, & CommonDialog1.,说明：该代码弹出一个“另保存”文件对话框，如图,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,常量,字 体 设 置,数,值,常,量,屏幕字体,1,cdlCFScreenFonts,打印机字体,2,cdlCFPrinterFonts,二者都设置,3,cdlCFBoth,图,10.18,“字体”对话框,表,10.6,列表显示了所有“字体”对话框中属性及其说明。,表,10.6,字体对话框属性说明,程序中调用“字体”对话框需要使用,showFont,方法。,属,性,解,释,说,明,Color,颜色,返回选定字体的颜色。如要使用这个属性，必须先将,Flags,属性设置为,cdlCFEffects,FontBold,粗体,返回是否选定了粗体,FontItalic,斜体,返回是否选定了斜体,FontStrikethru,删除线,返回是否选定删除线。如要使用这个属性，必须先将,Flags,属性设置为,cdlCFEffects,FontUnderline,下划线,返回是否选定下划线。如要使用这个属性，必须先将,Flags,属性设置为,cdlCFEffects,FontName,字体名称,返回选定字体的名称,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,章将介绍标准控件的引用和使用方法。,