第5章 与用户对话.ppt

第5章 与用户对话w 第9讲：教材P89～P99 w 5.1 输入对话框 w 5.2 消息对话框 w 5.3 通用对话框 w 第10讲：教材P99～100 w 5.4 自定义对话框 w 5.5 本章小结 w 实训4：教材P101 w 上机实训 结束第9讲：教材P89～P99内容：1.输入对话框2.消息框3.通用对话框同学们好，现在开始上课！5.1 输入对话框（1） 利用输入框函数InputBox通过输入对话框输入 数据，只需一行代码即可实现输入窗体的功能格式： InputBox（提示信息[，对话框标题][，默认值 ][，X，Y]）该函数的功能是产生一个对话框，作为输入数 据的界面，等待用户输入并返回所输入的内容函数中各参数的作用如下： 5.1 输入对话框（2） 提示信息：字符串表达式，在对话框内显示提示信息 ，最大长度为1024个字符如果包含多行，可以在各行之 间用回车符Chr(13)、换行符Chr(10)或回车换行符的组合 Chr(13) a; “, b =“; bt = a: a = b: b = t '交换Print “ 交换后: a =“; a; “, b =“; b End Sub 运行结果如图5.1所示，左图为InputBox函数生成的对话框，右图为窗体 显示结果。

图5.1 InputBox函数示例 返回首页单击演示(例5.1）5.2 消息对话框 w5.2.1 MsgBox函数 w5.2.2 MsgBox语句 返回首页5.2.1 MsgBox函数 该函数能够在对话框中显示信息，等待用户选择按钮，并返 回一个整数指明用户单击了哪个按钮语法格式如下： 变量 = MsgBox（提示信息[，按钮] [，对话框标题]参数说明：提示信息和对话框标题参数的作用与InputBox函数的对应 参数相同 按钮参数为数值表达式，是可选项，用来控制在对话框内 显示的按钮种类和数量以及图标类型该参数的值由四类数 值相加产生，这四类数值分别表示按钮的类型、显示图标的 种类、默认按钮的位置和消息框的强制返回特征，如表5.1 所示 表5.1 “按钮”参数的设置值及意义 “按钮”参数由上面四类数值相加组成，其组成原则是： 从每一类中选择一个值，把这几个值加在一起就是该参数的值 若省略某类数值，则默认该类数值为0不同的组合会得到 不同的结果，如果省略“按钮”参数，则只显示【确定】按钮 且无图标例如，“按钮”参数被设为以下三种组合时，将显 示图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所示该返回值用来作为程序继续执 行的依据，通常用选择结构根据返回值决定后面的操作 表5.2 MsgBox函数的返回值【P92例5.2】用MsgBox函数建立如图5.4所示的“退出”对话 框在例5.1的窗体中增加一个命令按钮，设Caption属性为“退出”在该按钮 的单击事件中用Unload语句卸载窗体： Unload Me为窗体的Unload事件编写如下代码： Private Sub Form_Unload(Cancel As Integer)Dim MyExit As IntegerMyExit = MsgBox(“确实想退出吗？“, _vbYesNo + vbQuestion _+ vbDefaultButton2, “退出“) '默认按钮为【否】If MyExit = vbNo ThenCancel = 1 '将Cancel参数设为非零值可取消卸载End IfEnd Sub程序运行后单击【退出】按钮或窗体右上角的关闭 按钮时，将会弹出图5.4所示的对话框，此时若单击【 是】按钮则完成窗体卸载，单击【否】按钮则取消卸 载，返回主窗体。

图5.4 【退出】对话框 返回首页返回本节单击演示(例5.2）5.2.2 MsgBox 语句MsgBox函数也可以写成语句形式，即： MsgBox 提示信息[，按钮类型][，对话框标题]其中各参数的含义及作用与MsgBox函数相同MsgBox语句和MsgBox函数实现的功能基本相同，只 是没有返回值，因而通常是在只需输出信息而不必 考虑用户反应的情况下使用返回首页返回本节5.3 通用对话框 w5.3.1 通用对话框简介 w5.3.2 文件对话框 w5.3.3 【颜色】对话框 w5.3.4 【字体】对话框 w5.3.5 【打印】对话框 w5.3.6 【帮助】对话框 返回首页5.3.1 通用对话框简介（1）VB的通用对话框控件CommonDialog提供了一组标准对话框 界面，一个控件即可显示六种对话框：打开文件、保存文件 、选择颜色、选择字体、设置打印机以及帮助对话框这些 对话框仅用于返回用户输入、选择或确认的信息，不能真正 实现文件打开和存储以及颜色设置、字体设置等操作这些 功能必须通过编写相应的代码才能实现1. 加载CommonDialog控件 CommonDialog控件是ActiveX控件，标准工具箱中没有该 控件，使用时需要将其添加到工具箱。

添加的方法是：选择 【工程】菜单中的【部件】命令，或者右击工具箱，在快捷 菜单中选择【部件】命令，打开如第1章中图1.10所示的【 部件】对话框，在【控件】选项卡的列表中，将Microsoft Common Dialog Control 6.0前面的复选框选中，单击【确 定】按钮 5.3.1 通用对话框简介（2）2.. 常用方法与属性 当需要在程序中显示通用对话框时，推荐使用ShowXX方 法（XX表示对话框类型），也可以为该控件的Action属性赋 值调用方法与设置属性的对应关系如表5.3所示 5.3.1 通用对话框简介（3）除了Action属性外，通用对话框还具有以下主要的共同属性：（1）CancelError属性通用对话框内有一个【取消】按钮，用于向程序表示用户想取消当 前的操作当CancelError属性设置为True时，若用户单击【取消】按 钮，通用对话框自动将错误对象（Err，由VB提供）的错误号 Err.Number设置为32755（VB常数为cdlCancel）供程序判断，以便进行 相应的处理若CancelError属性设置为False，则单击【取消】按钮时 不产生错误信息，无法判断用户是否单击了【取消】按钮。

2）DialogeTitle属性该属性可由用户自行设置对话框标题栏上显示的内容，代替默认的 对话框标题3）Flags属性该属性用于设置对话框的相关选项（各种具体对话框设置的选项略 有不同）返回首页返回本节5.3.2 文件对话框 （1）文件对话框用于获取文件名，有两种类型：“打开”和 “另存为”对话框在这两种对话框窗口内，可以遍历磁 盘的整个目录结构，找到所需文件，并返回用户选择或输 入的文件名图5.5为【打开】对话框，“另存为”对话框 与其相似，只是标题和按钮不同 5.3.2 文件对话框 （2）使用“打开”和“另存为”对话框时需要设置的属性主 要有以下几种1）FileName：值为字符串，用于设置或获取用户所选 的文件名（包括路径）2）FileTitle：文件标题设计时无效，运行时只读 ，返回不包含路径的文件名3）Filter：过滤器用于过滤文件类型，使文件列表 框中只显示指定文件类型的文件该属性的设置格式如下 （其中竖线 | 是必须要有的语法成分）： 文件说明1 | 文件类型1 [|文件说明2|文件类型2 …]5.3.2 文件对话框 （3）例如，图5.5【文件类型】下拉列表中有两种文件类型， 其Filter属性设置为： 文本文件(*.txt)|*.txt|所有文件(*.*)|*.*（4）FilterIndex：过滤器索引。

可指定【文件类型】 列表框中的的默认过滤器当使用Filte属性指定了多个过 滤器时，第一个过滤器的索引值为1，第二个过滤器的索引 值为2...索引值0与1等价图5.5中FilterIndex=0，默 认显示的是“文本文件（*.txt）”5）InitDir：初始化路径用来指定文件对话框中的 初始目录若显示当前目录，则该属性无须设置5.3.2 文件对话框 （4）（6）DefaultExt：用于“另存为”对话框，它 表示所存文件的默认扩展名在上述属性中，除FileTitle属性外，其他属性 均可在属性窗口和代码中设置此外，包括通用对 话框控件在内的大多数ActiveX控件都有一种称为 “属性页”的属性设置方式，可以快速设置与控件 功能有关的特殊属性右击窗体上的通用对话框控 件，选择快捷菜单中的【属性】命令，即可打开如 图5.6所示的【属性页】，对各种对话框的特殊属 性进行设置 图5.6 CommonDialog控件属性页 【P95例5.3】用命令按钮的单击事件显示“打开”对话框， 在对话框内只显示位图文件，初始目录为D:\My Pictures当 在对话框中选定一个位图文件后，单击【打开】按钮则在标签 上显示所选的文件名，若单击【取消】按钮，则显示“取消操 作”。

代码如下： Private Sub Commandl_Click()On Error GoTo ErrCancel '设置出错处理语句With CommonDialog1.InitDir = “D:\My Pictures“ '设置初始目录'过滤文件类型.Filter = “位图文件(*.Bmp)|*.bmp“.CancelError = True '控制取消按钮.ShowOpen '显示【打开】对话框'显示选择的文件名Label1.Caption = .FileNameEnd WithExit Sub '正常退出本过程 ErrCancel: '以下为错误处理程序段'用户单击了【取消】按钮If Err.Number = cdlCancel ThenLabel1.Caption = “取消操作“End If End Sub如果将上述代码中的ShowOpen改为ShowSave即可显示【 另存为】对话框 单击演示(例5.3）在例5.3的代码中，On Error语句是第一次使用， 在此对它作简要说明On Error语句有多种语法格式 ，这里使用的是其格式之一：On Error GoTo 标号该语句的作用是当程序发生错误时，跳转到“标号 ”处继续执行。

在例5.3中，为了防止用户单击【取 消】按钮时仍在标签上显示所选的文件名，所以将对 话框的CancelError属性设为True，即故意引发错误 ，以便使程序转到标号“ErrCancel：”处继续执行 当使用标号引导一段错误处理代码时，应在标号之 前加入Exit Sub 语句，以防止程序未出错时也执行错误处理代码 返回首页返回本节5.3.3 【颜色】对话框（1）【颜色】对话框用于获取用户选择或设置的颜色调 用通用对话框的ShowColor方法时，显示如图5.7所示的【 颜色】对话框在对话框的调色板中提供了48种基本颜色 供选择，还提供了自定义颜色供用户自己调色 5.3.3 【颜色】对话框（2）Color属性是【颜色】对话框最重要的属性，它设置或 返回选定的颜色该属性为长整型数据，有效范围为0～ &HFFFFFF（16,777,215）当用户在调色板中选中某种颜 色时，系统将该颜色值赋给Color属性在代码中可利用该 属性为其他对象的颜色属性赋值例如，下面的代码可以 将用户在“颜色”对话框中选定的颜色设置为文本框的背 景色，并将文本框的前景色设为背。