第5章 与用户对话

1、第第5章章 与用户对话与用户对话w 第第9 9讲：教材讲：教材P89P89P99P99w 5.1 5.1 输入对话框输入对话框 w 5.2 5.2 消息对话框消息对话框 w 5.3 5.3 通用对话框通用对话框 w 第第1010讲：教材讲：教材P99P99100100w 5.4 5.4 自定义对话框自定义对话框 w 5.5 5.5 本章小结本章小结w 实训实训4 4：教材：教材P101P101w 上机实训上机实训 第第9 9讲：教材讲：教材P89P89P99P99内容：内容： 输入对话框输入对话框 消息框消息框1.通用对话框通用对话框同学们好，现在开始上课！同学们好，现在开始上课！5.1 5.

2、1 输入对话框（输入对话框（1 1） 利用输入框函数利用输入框函数InputBoxInputBox通过输入对话框输入通过输入对话框输入数据，只需一行代码即可实现输入窗体的功能。数据，只需一行代码即可实现输入窗体的功能。 格式：格式：InputBox（提示信息提示信息，对话框标题，对话框标题，默认，默认值值，X，Y） 该函数的功能是产生一个对话框，作为输入数该函数的功能是产生一个对话框，作为输入数据的界面，等待用户输入并返回所输入的内容。据的界面，等待用户输入并返回所输入的内容。 函数中各参数的作用如下：函数中各参数的作用如下： 5.1 5.1 输入对话框（输入对话框（2 2） 提示信息提示信息

3、：字符串表达式，在对话框内显示提示信息，：字符串表达式，在对话框内显示提示信息，最大长度为最大长度为10241024个字符。如果包含多行，可以在各行之间个字符。如果包含多行，可以在各行之间用回车符用回车符ChrChr( (1313) )、换行符换行符ChrChr( (1010) )或回车换行符的组合或回车换行符的组合ChrChr( (1313) ) & Chr & Chr( (1010) )来分隔，对应的来分隔，对应的VBVB常数分别为常数分别为vbCrvbCr、vbLfvbLf和和vbCrLfvbCrLf。 对话框标题对话框标题：字符串表达式，显示在标题栏中作为对：字符串表达

4、式，显示在标题栏中作为对话框的标题。若省略，则默认为当前工程的名称。话框的标题。若省略，则默认为当前工程的名称。 默认值默认值：字符串表达式，显示在对话框的文本框中，：字符串表达式，显示在对话框的文本框中，在没有其他输入时作为默认输入值使用。默认为空。在没有其他输入时作为默认输入值使用。默认为空。 X X、Y Y：均为数值表达式，分别指定对话框左边和上边均为数值表达式，分别指定对话框左边和上边与屏幕左边和上边的距离，单位为缇（与屏幕左边和上边的距离，单位为缇（twiptwip）。）。如果省略，如果省略，对话框在水平方向居中，垂直方向约为屏幕的上三分之一对话框在水平方向居中，垂直方向约为屏幕的上

5、三分之一处显示。处显示。X X和和Y Y应成对出现，否则无效。应成对出现，否则无效。 5.1 5.1 输入对话框（输入对话框（3 3） 说明：说明：（1 1）在对话框中，如果用户选择了【确定】按钮，则）在对话框中，如果用户选择了【确定】按钮，则InputBoxInputBox函数返回文本框中所有内容；如果选择了【取消】函数返回文本框中所有内容；如果选择了【取消】按钮，则函数返回零长度的字符串。按钮，则函数返回零长度的字符串。（2 2）除提示信息外，其他参数均为可选参数。如果指定）除提示信息外，其他参数均为可选参数。如果指定了后面的参数而省略前面的参数，则必须保留前面的逗号。了后面的参数而省略前

6、面的参数，则必须保留前面的逗号。例如：例如：strNo = InputBoxstrNo = InputBox( ( 输入编号输入编号 ， ，001001) )。（3 3）使用）使用InputBoxInputBox函数一次只能输入一个数据。如果要函数一次只能输入一个数据。如果要输入多个数据，则必须多次使用该函数。输入多个数据，则必须多次使用该函数。【P90P90例例5.15.1】通过通过InputBoxInputBox函数输入两个数字存入变量函数输入两个数字存入变量a a、b b，然后将其互换。然后将其互换。在窗体上添加一个命令按钮，设在窗体上添加一个命令按钮，设CaptionCaption为为

7、“输入数字输入数字”。按钮单击事件代码如下：按钮单击事件代码如下： Private Sub Command1_Click() Dim a, b, t Cls a = Val(InputBox(请输入请输入 a :, 输入数字输入数字) b = Val(InputBox(请输入请输入 b :, 输入数字输入数字) Print 交换前交换前: a =; a; , b =; b t = a: a = b: b = t 交换交换 Print 交换后交换后: a =; a; , b =; bEnd Sub运行结果如图运行结果如图5.1所示，左图为所示，左图为InputBox函数生成的对话框，右图为窗体函

8、数生成的对话框，右图为窗体显示结果。显示结果。 图图5.1 InputBox函数示例函数示例 单击演示单击演示(例例5.1）5.2 5.2 消息对话框消息对话框 w5.2.1 5.2.1 MsgBoxMsgBox函数函数 w5.2.2 5.2.2 MsgBoxMsgBox语句语句 5.2.1 5.2.1 MsgBoxMsgBox函数函数 该函数能够在对话框中显示信息，等待用户选择按钮，并返该函数能够在对话框中显示信息，等待用户选择按钮，并返回一个整数指明用户单击了哪个按钮。语法格式如下：回一个整数指明用户单击了哪个按钮。语法格式如下：变量变量 = MsgBox（提示信息提示信息，按钮，按钮 ，

9、对话框标题，对话框标题参数说明：参数说明： 提示信息提示信息和和对话框标题对话框标题参数的作用与参数的作用与InputBoxInputBox函数的对应函数的对应参数相同。参数相同。 按钮按钮参数为数值表达式，是可选项，用来控制在对话框内参数为数值表达式，是可选项，用来控制在对话框内显示的按钮种类和数量以及图标类型。该参数的值由四类数显示的按钮种类和数量以及图标类型。该参数的值由四类数值相加产生，这四类数值分别表示按钮的类型、显示图标的值相加产生，这四类数值分别表示按钮的类型、显示图标的种类、默认按钮的位置和消息框的强制返回特征，如表种类、默认按钮的位置和消息框的强制返回特征，如表5.15.1所

10、示。所示。 表表5.1 “按钮按钮”参数的设置值及意义参数的设置值及意义 “按钮按钮”参数由上面四类数值相加组成，其组成原则是：参数由上面四类数值相加组成，其组成原则是：从每一类中选择一个值，把这几个值加在一起就是该参数的值。从每一类中选择一个值，把这几个值加在一起就是该参数的值。若省略某类数值，则默认该类数值为若省略某类数值，则默认该类数值为0。不同的组合会得到不。不同的组合会得到不同的结果，如果省略同的结果，如果省略“按钮按钮”参数，则只显示【确定】按钮且参数，则只显示【确定】按钮且无图标。例如，无图标。例如，“按钮按钮”参数被设为以下三种组合时，将显示参数被设为以下三种组合时，将显示图图

11、5.3所示的效果。所示的效果。 0+16+0+0=16 3+32+256+0=291 2+48+0+0=50 图图5.3 MsgBox函数函数“按钮按钮”参数示例参数示例 “按钮按钮”参数若采用参数若采用VB符号常量则更加直观。例如：符号常量则更加直观。例如： vbYesNo + vbQuestion MsgBox函数可以通过返回值判断用户选择了哪一个按函数可以通过返回值判断用户选择了哪一个按钮，对应情况如表钮，对应情况如表5.2所示。该返回值用来作为程序继续执所示。该返回值用来作为程序继续执行的依据，通常用选择结构根据返回值决定后面的操作。行的依据，通常用选择结构根据返回值决定后面的操作。

12、表表5.2 MsgBox函数的返回值函数的返回值 【P92P92例例5.25.2】用用MsgBoxMsgBox函数建立如图函数建立如图5.45.4所示的所示的“退出退出”对话对话框。框。在例在例5.15.1的窗体中增加一个命令按钮，设的窗体中增加一个命令按钮，设CaptionCaption属性为属性为“退出退出”。在该按。在该按钮的单击事件中用钮的单击事件中用UnloadUnload语句卸载窗体：语句卸载窗体：Unload Me为窗体的为窗体的UnloadUnload事件编写如下代码：事件编写如下代码：Private Sub Form_Unload(Cancel As Integer) Dim

13、 MyExit As Integer MyExit = MsgBox(确实想退出吗？确实想退出吗？, _vbYesNo + vbQuestion _ + vbDefaultButton2, 退出退出) 默认按钮为【否】默认按钮为【否】 If MyExit = vbNo Then Cancel = 1 将将Cancel参数设为非零值可取消卸载参数设为非零值可取消卸载 End IfEnd Sub 程序运行后单击【退出】按钮或窗体右上角的关闭程序运行后单击【退出】按钮或窗体右上角的关闭按钮时，将会弹出图按钮时，将会弹出图5.4所示的对话框，此时若单击所示的对话框，此时若单击【是】按钮则完成窗体卸载，

14、单击【否】按钮则取消【是】按钮则完成窗体卸载，单击【否】按钮则取消卸载，返回主窗体。卸载，返回主窗体。 图图5.4 【退出】对话框【退出】对话框 单击演示单击演示(例例5.2）5.2.2 5.2.2 MsgBox MsgBox 语句语句MsgBoxMsgBox函数也可以写成语句形式，即：函数也可以写成语句形式，即：MsgBox 提示信息提示信息，按钮类型，按钮类型，对话框标题，对话框标题其中各参数的含义及作用与其中各参数的含义及作用与MsgBoxMsgBox函数相同。函数相同。MsgBoxMsgBox语句和语句和MsgBoxMsgBox函数实现的功能基本相同，只函数实现的功能基本相同，只是没有

15、返回值，因而通常是在只需输出信息而不必是没有返回值，因而通常是在只需输出信息而不必考虑用户反应的情况下使用。考虑用户反应的情况下使用。5.3 5.3 通用对话框通用对话框 w5.3.1 5.3.1 通用对话框简介通用对话框简介 w5.3.2 5.3.2 文件对话框文件对话框w5.3.3 5.3.3 【颜色】对话框【颜色】对话框w5.3.4 5.3.4 【字体】对话框【字体】对话框w5.3.5 5.3.5 【打印】对话框【打印】对话框w5.3.6 5.3.6 【帮助】对话框【帮助】对话框 5.3.1 5.3.1 通用对话框简介（通用对话框简介（1 1） VB VB的通用对话框控件的通用对话框控件

16、CommonDialogCommonDialog提供了一组标准对话框提供了一组标准对话框界面，一个控件即可显示六种对话框：打开文件、保存文件、界面，一个控件即可显示六种对话框：打开文件、保存文件、选择颜色、选择字体、设置打印机以及帮助对话框。这些对选择颜色、选择字体、设置打印机以及帮助对话框。这些对话框仅用于返回用户输入、选择或确认的信息，不能真正实话框仅用于返回用户输入、选择或确认的信息，不能真正实现文件打开和存储以及颜色设置、字体设置等操作。这些功现文件打开和存储以及颜色设置、字体设置等操作。这些功能必须通过编写相应的代码才能实现。能必须通过编写相应的代码才能实现。 1. 1. 加载加载C

17、ommonDialogCommonDialog控件控件 CommonDialog CommonDialog控件是控件是ActiveXActiveX控件，标准工具箱中没有该控件，标准工具箱中没有该控件，使用时需要将其添加到工具箱。添加的方法是：选择控件，使用时需要将其添加到工具箱。添加的方法是：选择【工程】菜单中的【部件】命令，或者右击工具箱，在快捷【工程】菜单中的【部件】命令，或者右击工具箱，在快捷菜单中选择【部件】命令，打开如第菜单中选择【部件】命令，打开如第1 1章中图章中图1.101.10所示的所示的【 部 件 】 对 话 框 ， 在 【 控 件 】 选 项 卡 的 列 表 中 ， 将【

18、 部 件 】 对 话 框 ， 在 【 控 件 】 选 项 卡 的 列 表 中 ， 将Microsoft Common Dialog Control 6.0Microsoft Common Dialog Control 6.0前面的复选框选中，前面的复选框选中，单击【确定】按钮。单击【确定】按钮。 5.3.1 5.3.1 通用对话框简介（通用对话框简介（2 2） 2. 2. 常用方法与属性常用方法与属性 当需要在程序中显示通用对话框时，推荐使用当需要在程序中显示通用对话框时，推荐使用ShowXXShowXX方方法（法（XXXX表示对话框类型），也可以为该控件的表示对话框类型），也可以为该控件的A

19、ctionAction属性赋属性赋值。调用方法与设置属性的对应关系如表值。调用方法与设置属性的对应关系如表5.35.3所示。所示。 5.3.1 5.3.1 通用对话框简介（通用对话框简介（3 3） 除了除了ActionAction属性外，通用对话框还具有以下主要的共同属性：属性外，通用对话框还具有以下主要的共同属性： （1 1）CancelErrorCancelError属性属性 通用对话框内有一个【取消】按钮，用于向程序表示用户想取消通用对话框内有一个【取消】按钮，用于向程序表示用户想取消当前的操作。当当前的操作。当CancelErrorCancelError属性设置为属性设置为TrueTr

20、ue时，若用户单击【取消】时，若用户单击【取消】按钮，通用对话框自动将错误对象（按钮，通用对话框自动将错误对象（ErrErr，由由VBVB提供）的错误号提供）的错误号Err.NumberErr.Number设置为设置为3275532755（VBVB常数为常数为cdlCancelcdlCancel）供程序判断，以便进供程序判断，以便进行相应的处理。若行相应的处理。若CancelErrorCancelError属性设置为属性设置为FalseFalse，则单击【取消】按则单击【取消】按钮时不产生错误信息，无法判断用户是否单击了【取消】按钮。钮时不产生错误信息，无法判断用户是否单击了【取消】按钮。 （

21、2 2）DialogeTitleDialogeTitle属性属性 该属性可由用户自行设置对话框标题栏上显示的内容，代替默认该属性可由用户自行设置对话框标题栏上显示的内容，代替默认的对话框标题。的对话框标题。 （3 3）FlagsFlags属性属性 该属性用于设置对话框的相关选项（各种具体对话框设置的选项该属性用于设置对话框的相关选项（各种具体对话框设置的选项略有不同）。略有不同）。5.3.2 5.3.2 文件对话框文件对话框 （1 1） 文件对话框用于获取文件名，有两种类型：文件对话框用于获取文件名，有两种类型：“打开打开”和和“另存为另存为”对话框。在这两种对话框窗口内，可以遍历磁对话框。在

22、这两种对话框窗口内，可以遍历磁盘的整个目录结构，找到所需文件，并返回用户选择或输盘的整个目录结构，找到所需文件，并返回用户选择或输入的文件名。图入的文件名。图5.55.5为【打开】对话框，为【打开】对话框，“另存为另存为”对话框对话框与其相似，只是标题和按钮不同。与其相似，只是标题和按钮不同。 5.3.2 5.3.2 文件对话框文件对话框 （2 2） 使用使用“打开打开”和和“另存为另存为”对话框时需要设置的属性主对话框时需要设置的属性主要有以下几种。要有以下几种。 （1 1）FileNameFileName：值为字符串，用于设置或获取用户所选值为字符串，用于设置或获取用户所选的文件名（包括路

23、径）。的文件名（包括路径）。 （2 2）FileTitleFileTitle：文件标题。设计时无效，运行时只读，文件标题。设计时无效，运行时只读，返回不包含路径的文件名。返回不包含路径的文件名。 （3 3）FilterFilter：过滤器。用于过滤文件类型，使文件列表过滤器。用于过滤文件类型，使文件列表框中只显示指定文件类型的文件。该属性的设置格式如下框中只显示指定文件类型的文件。该属性的设置格式如下（其中竖线（其中竖线 | | 是必须要有的语法成分）：是必须要有的语法成分）：文件说明文件说明1 | 文件类型文件类型1 |文件说明文件说明2|文件类型文件类型2 5.3.2 5.3.2 文件对话

24、框文件对话框 （3 3） 例如，图例如，图5.55.5【文件类型】下拉列表中有两种文件类型，【文件类型】下拉列表中有两种文件类型，其其FilterFilter属性设置为：属性设置为：文本文件文本文件(*.txt)|*.txt|所有文件所有文件(*.*)|*.* （4 4）FilterIndexFilterIndex：过滤器索引。可指定【文件类型】过滤器索引。可指定【文件类型】列表框中的的默认过滤器。当使用列表框中的的默认过滤器。当使用FilteFilte属性指定了多个过属性指定了多个过滤器时，第一个过滤器的索引值为滤器时，第一个过滤器的索引值为1 1，第二个过滤器的索引，第二个过滤器的索引值为

25、值为2.2.。索引值。索引值0 0与与1 1等价。图等价。图5.55.5中中FilterIndex=0FilterIndex=0，默默认显示的是认显示的是“文本文件（文本文件（* *. .txttxt）”。 （5 5）InitDirInitDir：初始化路径。用来指定文件对话框中的初始化路径。用来指定文件对话框中的初始目录。若显示当前目录，则该属性无须设置。初始目录。若显示当前目录，则该属性无须设置。5.3.2 5.3.2 文件对话框文件对话框 （4 4） （6 6）DefaultExtDefaultExt：用于用于“另存为另存为”对话框，它对话框，它表示所存文件的默认扩展名。表示所存文件的默

26、认扩展名。 在上述属性中，除在上述属性中，除FileTitleFileTitle属性外，其他属性属性外，其他属性均可在属性窗口和代码中设置。此外，包括通用对均可在属性窗口和代码中设置。此外，包括通用对话框控件在内的大多数话框控件在内的大多数ActiveXActiveX控件都有一种称为控件都有一种称为“属性页属性页”的属性设置方式，可以快速设置与控件的属性设置方式，可以快速设置与控件功能有关的特殊属性。右击窗体上的通用对话框控功能有关的特殊属性。右击窗体上的通用对话框控件，选择快捷菜单中的【属性】命令，即可打开如件，选择快捷菜单中的【属性】命令，即可打开如图图5.65.6所示的【属性页】，对各种

27、对话框的特殊属所示的【属性页】，对各种对话框的特殊属性进行设置。性进行设置。 图图5.6 CommonDialog控件属性页控件属性页 【P95P95例例5.35.3】用命令按钮的单击事件显示用命令按钮的单击事件显示“打开打开”对话框，对话框，在对话框内只显示位图文件，初始目录为在对话框内只显示位图文件，初始目录为D:My PicturesD:My Pictures。当当在对话框中选定一个位图文件后，单击【打开】按钮则在标签在对话框中选定一个位图文件后，单击【打开】按钮则在标签上显示所选的文件名，若单击【取消】按钮，则显示上显示所选的文件名，若单击【取消】按钮，则显示“取消操取消操作作”。代码

28、如下：。代码如下：Private Sub Commandl_Click() On Error GoTo ErrCancel 设置出错处理语句设置出错处理语句 With CommonDialog1 .InitDir = D:My Pictures 设置初始目录设置初始目录 过滤文件类型过滤文件类型 .Filter = 位图文件位图文件(*.Bmp)|*.bmp .CancelError = True 控制取消按钮控制取消按钮 .ShowOpen 显示【打开】对话框显示【打开】对话框 显示选择的文件名显示选择的文件名 Label1.Caption = .FileName End With Exit

29、 Sub 正常退出本过程正常退出本过程ErrCancel: 以下为错误处理程序段以下为错误处理程序段 用户单击了【取消】按钮用户单击了【取消】按钮 If Err.Number = cdlCancel Then Label1.Caption = 取消操作取消操作 End IfEnd Sub 如果将上述代码中的如果将上述代码中的ShowOpen改为改为ShowSave即可显示即可显示【另存为】对话框。【另存为】对话框。 单击演示单击演示(例例5.3） 在例在例5.35.3的代码中，的代码中，On ErrorOn Error语句是第一次使用，语句是第一次使用，在此对它作简要说明。在此对它作简要说明。

30、On ErrorOn Error语句有多种语法格式，语句有多种语法格式，这里使用的是其格式之一：这里使用的是其格式之一： On Error GoTo 标号标号 该语句的作用是当程序发生错误时，跳转到该语句的作用是当程序发生错误时，跳转到“标号标号”处继续执行。在例处继续执行。在例5.35.3中，为了防止用户单击【取消】中，为了防止用户单击【取消】按钮时仍在标签上显示所选的文件名，所以将对话框按钮时仍在标签上显示所选的文件名，所以将对话框的的CancelErrorCancelError属性设为属性设为TrueTrue，即故意引发错误，以即故意引发错误，以便使程序转到标号便使程序转到标号“ErrC

31、ancelErrCancel：”处继续执行。当处继续执行。当使用标号引导一段错误处理代码时，应在标号之前加使用标号引导一段错误处理代码时，应在标号之前加入入 Exit Sub Exit Sub 语句，以防止程序未出错时也执行错误处理代码。语句，以防止程序未出错时也执行错误处理代码。 5.3.3 5.3.3 【颜色】对话框（颜色】对话框（1） 【颜色】对话框用于获取用户选择或设置的颜色。调【颜色】对话框用于获取用户选择或设置的颜色。调用通用对话框的用通用对话框的ShowColorShowColor方法时，显示如图方法时，显示如图5.75.7所示的所示的【颜色】对话框。在对话框的调色板中提供了【颜

32、色】对话框。在对话框的调色板中提供了4848种基本颜种基本颜色供选择，还提供了自定义颜色供用户自己调色。色供选择，还提供了自定义颜色供用户自己调色。 5.3.3 5.3.3 【颜色】对话框（【颜色】对话框（2） ColorColor属性是【颜色】对话框最重要的属性，它设置或属性是【颜色】对话框最重要的属性，它设置或返回选定的颜色。该属性为长整型数据，有效范围为返回选定的颜色。该属性为长整型数据，有效范围为0 0& &HFFFFFFHFFFFFF（16,777,21516,777,215）。）。当用户在调色板中选中某种颜当用户在调色板中选中某种颜色时，系统将该颜色值赋给色时，系统

33、将该颜色值赋给ColorColor属性。在代码中可利用该属性。在代码中可利用该属性为其他对象的颜色属性赋值。例如，下面的代码可以属性为其他对象的颜色属性赋值。例如，下面的代码可以将用户在将用户在“颜色颜色”对话框中选定的颜色设置为文本框的背对话框中选定的颜色设置为文本框的背景色，并将文本框的前景色设为背景色的互补色。景色，并将文本框的前景色设为背景色的互补色。CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorText1.ForeColor = &HFFFFFF - CommonDialog1.Color注：用十六进制

34、数注：用十六进制数& &HFFFFFFHFFFFFF减去某个颜色值即为该颜色的减去某个颜色值即为该颜色的互补色值。互补色值。 5.3.4 5.3.4 【字体】对话框【字体】对话框 （1） 【字体】对【字体】对话框供用户选择话框供用户选择字体，可获取用字体，可获取用户所选字体的名户所选字体的名称、样式、大小称、样式、大小及效果。调用通及效果。调用通用 对 话 框 的用 对 话 框 的ShowFontShowFont方法时，方法时，显示如图显示如图5.85.8所所示的【字体】对示的【字体】对话框。话框。 图图5.8 【字体】对话框【字体】对话框 5.3.4 5.3.4 【字体】对话

35、框【字体】对话框 （2） 在使用在使用CommonDialogCommonDialog控件选择字体之前，必控件选择字体之前，必须设置须设置FlagsFlags属性值。该属性控制属性值。该属性控制CommonDialogCommonDialog控控件是否显示屏幕字体、打印机字体或者两者皆有。件是否显示屏幕字体、打印机字体或者两者皆有。如果未设置如果未设置FlagsFlags属性值而直接打开【字体】对话属性值而直接打开【字体】对话框，框，VBVB将显示图将显示图5.95.9所示的错误提示。所示的错误提示。 图图5.9 未设置未设置Flags属性值的错误提示属性值的错误提示5.3.4 5.3.4 【

36、字体】对话框【字体】对话框 （3）通用对话框用于字体操作时涉及到的重要属性有：通用对话框用于字体操作时涉及到的重要属性有：（1 1）FlagsFlags属性：在【字体】对话框中常用的属性：在【字体】对话框中常用的FlagsFlags属性设置值如表属性设置值如表5.45.4所示。其中，前三项必须所示。其中，前三项必须选择其一才能防止图选择其一才能防止图5.95.9所示的错误。所示的错误。 5.3.4 5.3.4 “字体字体”对话框对话框 （4） ( (2 2) )FontFont属性集：包括属性集：包括FontNameFontName( (字体名字体名) )、FontSizeFontSize(

37、(字号字号) )、FontBoldFontBold0(0(粗体粗体) )、FontItalicFontItalic( (斜体斜体) )、FontStrikethruFontStrikethru( (删除线删除线) )和和FontUnderlineFontUnderline( (下划线下划线) )。 ( (3 3) ) ColorColor属性：字体颜色。要使用该属性必须使属性：字体颜色。要使用该属性必须使FlagsFlags属性含有属性含有cdlCFEffectscdlCFEffects值。值。【P97P97例例5.45.4】用【字体】对话框设置文本框的字体，要求用【字体】对话框设置文本框的字

38、体，要求字体对话框内出现【效果】选项（下划线、删除线和颜字体对话框内出现【效果】选项（下划线、删除线和颜色）。色）。 在窗体上放置通用对话框，文本框和命令按钮。为按在窗体上放置通用对话框，文本框和命令按钮。为按钮单击事件编写以下代码：钮单击事件编写以下代码： Private Sub Command1_Click() With CommonDialog1 .Flags = cdlCFBoth Or cdlCFEffects 设置设置Flags .FontName = 宋体宋体 设置对话框默认字体设置对话框默认字体 .ShowFont 显示字体对话框显示字体对话框 Text1.FontName =

39、 .FontName 设置文本框字体名设置文本框字体名 Text1.FontSize = .FontSize 设置字体大小设置字体大小 Text1.FontBold = .FontBold 设置粗体设置粗体 Text1.FontItalic = .FontItalic 设置斜体设置斜体 Text1.FontStrikethru = .FontStrikethru 设置删除线设置删除线 Text1.FontUnderline = .FontUnderline 设置下划线设置下划线 Text1.ForeColor = .Color 设置颜色设置颜色 End WithEnd Sub 单击演示单击演示

40、(例例5.4） 当当Flags=cdlCFBooth Or cdlCFEfects时，对话框如图时，对话框如图5.10所示，与图所示，与图5.8相比增加了【效果】选项。也可以用相比增加了【效果】选项。也可以用Flags=259表示该设置（表示该设置（256+3=259）。）。 图图5.10 用用Flags属性加入【效果】选项属性加入【效果】选项 5.3.5 5.3.5 【打印】对话框（【打印】对话框（1） 【打印】对话框如【打印】对话框如图图5.115.11所示，设计时可通过所示，设计时可通过图图5.125.12所示的【属性页】设置其属性。运行时该对话所示的【属性页】设置其属性。运行时该对话框

41、供用户选择打印机，设置打印参数（如打印范围、框供用户选择打印机，设置打印参数（如打印范围、份数等）。通过对话框中的【属性】按钮可设置打份数等）。通过对话框中的【属性】按钮可设置打印机的属性。【打印】对话框并不能处理打印工作，印机的属性。【打印】对话框并不能处理打印工作，只是一个供用户选择或设置打印参数的界面，所设只是一个供用户选择或设置打印参数的界面，所设参数存于各属性中供编程使用。若要打印必须为参数存于各属性中供编程使用。若要打印必须为PrinterPrinter对象（表示所安装的默认打印机）编写程对象（表示所安装的默认打印机）编写程序来实现。序来实现。5.3.5 5.3.5 【打印】对话框

42、（【打印】对话框（2）图图5.11 5.11 【打印】对话框【打印】对话框 图图5.12 5.12 【打印】对话框属性【打印】对话框属性 5.3.5 5.3.5 【打印】对话框（【打印】对话框（3） 通用对话框用于打印操作时涉及到的重要属性主通用对话框用于打印操作时涉及到的重要属性主要有：要有：（1 1）CopiesCopies（副本）：指定打印份数。副本）：指定打印份数。（2 2）FromPageFromPage（起始页）、起始页）、ToPageToPage（终止页）：终止页）：打印的起始页号和终止页号。打印的起始页号和终止页号。（3 3）MinMin（最小值）、最小值）、MaxMax（最大

43、值）：打印的最最大值）：打印的最小页数和最大页数。小页数和最大页数。（ 4 4 ） O r i e n t a t i o nO r i e n t a t i o n （ 方 向 ） ： 打 印 方 向 。方 向 ） ： 打 印 方 向 。cdlPortraitcdlPortrait为纵向；为纵向；cdlLandscapecdlLandscape为横向。为横向。 【P98P98例例5.55.5】在例在例5.45.4中增加一个命令按钮，调用【打印】中增加一个命令按钮，调用【打印】对话框，打印文本框中的内容。对话框，打印文本框中的内容。调用调用PrinterPrinter对象的对象的PrintP

44、rint方法将要打印的内容发送到打印机即方法将要打印的内容发送到打印机即可实现打印。调用可实现打印。调用PrinterPrinter对象的对象的EndDocEndDoc方法可结束打印操作。方法可结束打印操作。代码如下：代码如下：Private Sub Command2_Click() Dim i As Integer CommonDialog1.ShowPrinter 显示【打印】对话框显示【打印】对话框 For i = 1 to CommonDialog1.Copies 按份数打印按份数打印 Printer.Print Text1.Text 打印文本框中的内容打印文本框中的内容 Next P

45、rinter.EndDoc 结束文档打印结束文档打印End Sub单击演示单击演示(例例5.5）5.3.6 5.3.6 【帮助】对话框【帮助】对话框 （1） CommonDialogCommonDialog控件的控件的ShowHelpShowHelp方法可调用方法可调用WindowsWindows的帮助引擎，并显示由的帮助引擎，并显示由HelpFileHelpFile属性设定属性设定的一个帮助文件。的一个帮助文件。【帮助】对话框涉及到的重要属性有：【帮助】对话框涉及到的重要属性有：（1 1）HelpFileHelpFile（帮助文件）：用于指定帮助文件帮助文件）：用于指定帮助文件的路径及其文件

46、名称。的路径及其文件名称。（2 2）HelpCommandHelpCommand（帮助命令）：用于返回或设置帮助命令）：用于返回或设置所需要的联机帮助的类型。所需要的联机帮助的类型。 5.3.6 5.3.6 【帮助】对话框【帮助】对话框 （2）注意：注意： 用于打开【帮助】对话框的用于打开【帮助】对话框的ShowHelpShowHelp方法仅支方法仅支持持. .hlphlp类型的帮助文件，不能直接打开类型的帮助文件，不能直接打开. .chmchm类型的类型的帮助文件。该方法在帮助文件。该方法在Windows 98Windows 98中使用正常，而在中使用正常，而在Windows 2000Win

47、dows 2000及以上版本的操作系统中无法正常使及以上版本的操作系统中无法正常使用。用。本讲到此结束，谢谢！下课。本讲到此结束，谢谢！下课。第第1010讲：教材讲：教材P99P99100100内容：内容： 输入对话框输入对话框 消息框消息框1.通用对话框通用对话框同学们好，现在开始上课！同学们好，现在开始上课！5.4 5.4 自定义对话框（自定义对话框（1 1） 自定义对话框是根据实际应用的需要设计的对自定义对话框是根据实际应用的需要设计的对话 框 。 当话 框 。 当 V BV B 所 提 供 的 通 用 对 话 框 控 件 以 及所 提 供 的 通 用 对 话 框 控 件 以 及Inpu

48、tBoxInputBox和和MsgBoxMsgBox函数不能满足应用程序的需求函数不能满足应用程序的需求时，就需要自制对话框。自定义对话框实际上是时，就需要自制对话框。自定义对话框实际上是一个含有若干控件的窗体，用以构成用户与系统一个含有若干控件的窗体，用以构成用户与系统对话的界面，通常将窗体的对话的界面，通常将窗体的BorderStyleBorderStyle属性设为属性设为3-3-Fixed DialogFixed Dialog或或1-1-Fixed SingleFixed Single，使其无最大使其无最大化和最小化按钮，不能改变大小。在化和最小化按钮，不能改变大小。在2.3.6 2.3

49、.6 小节小节例例2.72.7中的【关于】窗体就是一个自定义对话框。中的【关于】窗体就是一个自定义对话框。5.4 5.4 自定义对话框（自定义对话框（2 2） 下面再通过一个较实用的示例说明自制对话框的下面再通过一个较实用的示例说明自制对话框的创建过程，同时复习一下前面介绍的创建过程，同时复习一下前面介绍的MsgBoxMsgBox语句。语句。【P99P99例例5.65.6】创建一个用户登录对话框，要求用创建一个用户登录对话框，要求用户输入用户名和密码。用户名为户输入用户名和密码。用户名为“admin”admin”，不区不区分大小写；密码为分大小写；密码为“12345”“12345”。若用户名和

50、密码输。若用户名和密码输入正确，单击【确定】按钮后显示程序主窗体，入正确，单击【确定】按钮后显示程序主窗体，否则提示用户重新输入。若错误超过三次，结束否则提示用户重新输入。若错误超过三次，结束运行。运行。 5.4 5.4 自定义对话框（自定义对话框（3 3） （1 1）设计界面及设置属性）设计界面及设置属性 新建工程，将窗体默认名称新建工程，将窗体默认名称Form1Form1改为改为frmLoginfrmLogin，设设BorderStyleBorderStyle属性为属性为3 3，CaptionCaption属性为【登录】。在窗体上属性为【登录】。在窗体上添加两个文本框，名称分别为添加两个文

51、本框，名称分别为txtUsertxtUser和和txtPasswordtxtPassword，TextText属性均设为空。设属性均设为空。设txtPasswordtxtPassword文本框的文本框的PasswordPassword属属性为性为“* *”。添加两个标签，。添加两个标签，CaptionCaption属性分别为【用户名】属性分别为【用户名】和【用户密码】。添加两个命令按钮，名称分别为和【用户密码】。添加两个命令按钮，名称分别为cmdOkcmdOk和和cmdExitcmdExit，CaptionCaption分别为【确定】、【退出】。设置【确分别为【确定】、【退出】。设置【确定】按

52、钮定】按钮Default=TrueDefault=True，【，【退出】按钮退出】按钮Cancel=TrueCancel=True。 添加一个窗体，名称为添加一个窗体，名称为frmMainfrmMain，设设CaptionCaption属性为【主属性为【主窗体】。在窗体上添加一个标签，设窗体】。在窗体上添加一个标签，设CaptionCaption属性为【欢迎属性为【欢迎进入本系统】，字体为华文新魏，二号字。进入本系统】，字体为华文新魏，二号字。 5.4 5.4 自定义对话框（自定义对话框（4 4） （2 2）编写代码）编写代码为为frmLoginfrmLogin窗体的【确定】按钮的单击事件编写以下代码，窗体的【确定】按钮的单击事件编写以下代码，进行用户登录检测：进行用户登录检测：Private Sub cmdOk_Click() Static intErr As Integer 静态变量累加出错次数静态变量累加出错次数 Dim sUser As String Dim sPass As String 用户名不区分大小写用户名不区分大小写 sUser = UCase$(Trim$(txtUser.Text) sPass = Trim