第5章 和用户对话s.ppt

第5章 与用户对话;5.1 输入对话框（1） ;5.1 输入对话框（2） ;5.1 输入对话框（3） ;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 =; b End Sub 运行结果如图5.1所示，左图为InputBox函数生成的对话框，右图为窗体显示结果。 ;5.2 消息对话框 ;5.2.1 MsgBox函数 ;表5.1 “按钮”参数的设置值及意义 ; “按钮”参数由上面四类数值相加组成，其组成原则是：从每一类中选择一个值，把这几个值加在一起就是该参数的值。若省略某类数值，则默认该类数值为0。不同的组合会得到不同的结果，如果省略“按钮”参数，则只显示【确定】按钮且无图标。例如，“按钮”参数被设为以下三种组合时，将显示图5.3所示的效果。 ; MsgBox函数可以通过返回值判断用户选择了哪一个按钮，对应情况如表5.2所示。该返回值用来作为程序继续执行的依据，通常用选择结构根据返回值决定后面的操作。 ; 【例5.2】用MsgBox函数建立如图5.4所示的“退出”对话框。 在例5.1的窗体中增加一个命令按钮，设Caption属性为“退出”。在该按钮的单击事件中用Unload语句卸载窗体： Unload Me 为窗体的Unload事件编写如下代码： Private Sub Form_Unload(Cancel As Integer) Dim MyExit As Integer MyExit = MsgBox(确实想退出吗？, _ vbYesNo + vbQuestion _ + vbDefaultButton2, 退出) 默认按钮为【否】 If MyExit = vbNo Then Cancel = 1 将Cancel参数设为非零值可取消卸载 End If End Sub; 程序运行后单击【退出】按钮或窗体右上角的关闭按钮时，将会弹出图5.4所示的对话框，此时若单击【是】按钮则完成窗体卸载，单击【否】按钮则取消卸载，返回主窗体。 ;5.2.2 MsgBox 语句;5.3 通用对话框 ;5.3.1 通用对话框简介（1）;5.3.1 通用对话框简介（2）;5.3.1 通用对话框简介（3）;5.3.2 文件对话框 （1）;5.3.2 文件对话框 （2）;5.3.2 文件对话框 （3）;5.3.2 文件对话框 （4）;图5.6 CommonDialog控件属性页 ; 【例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 = .FileName End With Exit Sub 正常退出本过程 ErrCancel: 以下为错误处理程序段 用户单击了【取消】按钮 If Err.Number = cdlCancel Then Label1.Caption = 取消操作 End If End Sub 如果将上述代码中的ShowOpen改为ShowSave即可显示【另存为】对话框。 ; 在例5.3的代码中，On Error语句是第一次使用，在此对它作简要说明。On Error语句有多种语法格式，这里使用的是其格式之一： On Error GoTo 标号 该语句的作用是当程序发生错误时，跳转到“标号”处继续执行。在例5.3中，为了防止用户单击【取消】按钮时仍在标签上显示所