1、第五章第五章对话框第2 2页本章目标d掌握Visual Basic语言中的各类对话框的创建和基本使用方法d能够使用系统提供的输入对话框、消息对话框、通用对话框以及自定义对话框等获得窗体编程的技能第3 3页任务任务1修改成绩对话框的设计修改成绩对话框的设计d 设计一个修改成绩的对话框。在窗体上显示一个文本框并显示成绩为80分，如果需要修改就单击修改成绩按钮，弹出消息确认是否修改，如果点击“是”，要求用户输入一个范围在0到100之间的数字，判定该数字是在该范围以内，显示正确并将原来的80分改为新输入的成绩，如果超出范围提示输入错误，如果选择“取消”则将取消本次修改操作。第4 4页任务分析该任务我们
2、要学习以下几项内容:1.对话框的基本特点2.输入对话框3.消息框第5 5页任务分析1.对话框的基本特点对话框是VB应用程序在执行过程中与用户进行交流的窗口。通过对话框可以及时有效地和用户交流，获得数据或者反馈结果。在Visual Basic中，可以利用系统提供的通用对话框，也可以根据需要自己设计对话框。典型的对话框通常没有菜单通常没有菜单不能调整对话框大小不能调整对话框大小也很少作为应用程序的主界面也很少作为应用程序的主界面 第6 6页任务分析1.输入对话框是系统定义的对话框。该对话框包含一个消息提示、一个文本框以及两个命令按钮“确定”和“取消”。对话框等待用户输入文本或单击按钮，然后返回文本
3、框的内容。输入框的样式是固定的，用户不能改变。文本框和输入对话框都可以接受用户的输入，但是其风格和用法有区别。第7 7页任务分析1.输入对话框InputBox$(提示,标题,缺省值,x坐标位置,y坐标位置)语法参数含义：d$：可选项，表示当该参数存在时，返回的是字符型数据，该参数不存在时，返回的是变体型数据。d提示：必选项，字符表达式，用于提示用户输入的信息内容。d标题：可选项，字符表达式，用于设置输入对话框标题栏中的标题。省略时使用工程名的标题。d缺省值：可选项，用来在输入对话框的输入文本框中显示一个默认值。第8 8页任务分析1.输入对话框带返回值的InputBox函数使用方法如下yy=in
4、putbox$(”请输入姓名请输入姓名”,”姓名输入框姓名输入框”,2000,3000)显示结果是输入框显示左上角位置是在屏幕的(2000,3000)，yy获得的值在单击“确定”按钮时是一个输入文本框的字符串,在单击“取消”按钮时是一个零长度的字符串。InputBox函数后的一对圆括号不能省略。第9 9页任务分析1.输入对话框不带返回值的InputBox函数使用方法如下：inputbox$”请输入姓名请输入姓名”,”姓名输入框姓名输入框”,2000,3000显示结果与带返回值的InputBox函数使用方法的相同，但不会向表达式或变量传递返回值。函数后的圆括号可以省略，但参数间的逗号不可省第10
5、10页任务分析1.消息框MsgBox函数可在屏幕上出现一个消息框，消息框通知用户消息并等待用户来选择消息框中的按钮，MsgBox函数返回一个与用户所选按钮相对应的整数。语法：语法：MsgBox(提示提示,标志和按钮标志和按钮,标题标题)“提示”和“标题”的含义同InputBox函数“标志和按钮”指定按钮的数目及类型，使用的图标样式及缺省按钮是按钮数目、使用的图标样式以及缺省按钮三项所对应的数据之和。缺省值是0。第1111页任务分析1.消息框表5-2 MsgBox函数中按钮和标志值常数常数值值说明说明VbOKOnly0只显示OK按钮VbOKCancel1显示OK和Cancel按钮VbAbortR
6、etryIgnore2显示终止(A)、重试(R)和忽略(I)按钮VbYesNoCancel3显示Yes、No和Cancel按钮VbYesNo4显示Yes和No按钮VbRetryCancel5显示重试(R)和取消(I)按钮VbCritical16在对话框中显示“”图标VbQuestion32在对话框中显示“？”图标VbExclamation48在对话框中显示“！”图标VbInformation64在对话框中显示“I”图标VbDefaultButton10第1个按钮是默认值第1212页任务分析1.消息框 MsgBox函数中按钮返回值 常数常数值值用户单击的按钮用户单击的按钮VbOK1确定VbCan
7、cel2取消VbAbort3放弃VbRetry4重试VbIgnore5忽略VbYes6是VbNo7否第1313页任务分析1.消息框带返回值answer=MsgBox(”确定要退出吗？”,36,”请选择”)不带返回值MsgBox”确定要退出吗？”36,”请选择”第1414页任务分析InputBox函数格式固定并只能接受用户输入的一个值，可用于设计输入较为简单的信息的窗体设计。MsgBox函数是单向的向用户提供消息，并不接受输入，它的功能是告知用户发生了什么或刚才用户的操作的结果，因此适合作为消息提示或警告窗体的设计。第1515页任务实施1.创建新工程2.从工具箱中选择控件拖入窗体标签控件按钮控件
8、文本框控件第1616页任务实施3.在按钮的Click事件中编写代码，生成若干个消息框和一个输入框并根据消息框和输入框的返回值进行选择和判断；4.在代码窗口编写事件代码并保存、运行源代码 num=InputBox(请输入成绩分数在0100之间,修改成绩)If num=0 And num=100 Then MsgBox 输入正确，立刻修改,64,特别提示 Text1.Text=num Else MsgBox 输入错误！不能修改！,16,特别提示 End If第1717页任务设计完成效果设计后的对话框自定义对话框输入对话框消息框第1818页任务任务2带有文件打开和保存、设置字体等功能对话框的带有文件
9、打开和保存、设置字体等功能对话框的设计设计d在左端的文本框内显示打开的文件，文本框内的文字可以设置字体，并保存。当使用右端的任意按钮时，标签标题显示为文件路径、文件名称和文件操作的描述。第1919页任务分析该任务我们要研究以下内容:1.通用对话框的特点2.通用对话框的加载3.通用对话框的属性4.通用对话框的调用方法第2020页任务分析1.通用对话框的特点VB提供了一组基于Windows的常用的标准对话框界面，用户可以充分利用通用对话框（Common Dialog）控件在窗体上创建6种标准对话框，不需要自己设计。打开（打开（Open）对话框）对话框 另存为（另存为（Save As）对话框）对话框
10、 颜色（颜色（Color）对话框）对话框 字体（字体（Font）对话框）对话框 打印（打印（Printer）对话框）对话框 帮助（帮助（Help）对话框）对话框 第2121页任务分析2.通用对话框的加载1.通过菜单“工程部件”加载“Microsoft Common Dialog Control 6.0”，在工具栏内添加通用对话框控件。2.任意窗体上使用通用对话框，要将通用对话框控件拖动到窗体上，并设置相关属性。第2222页任务分析3.通用对话框的属性通用对话框共有属性Name是通用对话框的名称属性Index是由多个对话框组成的控件数组的下标Left和Top表示通用对话框的位置Action功能属
11、性 第2323页任务分析3.通用对话框的属性“打开”对话框的特殊属性FileName属性：表示用户要打开文件的文件名（包含路径）。FileTitle属性：表示用户要打开文件的文件名（不包含路径）。Filter属性：过滤器属性，用于确定文件列表框中所显示文件的类型，是由一组元素或由”|”分开的分别表示不同类型文件的多组元素组成。FilterIndex属性：过滤器索引属性，整型，表示用户在文件类型列表框中选定了第几组文件类型。InitDir属性：初始化路径属性，用来指定“打开”对话框的初始目录。第2424页任务分析3.通用对话框的属性“另存为”对话框的特殊属性DefaultExt属性：表示默认扩展
12、名。“颜色”对话框的特殊属性Color属性：返回或设置通用对话框的颜色。第2525页任务分析3.通用对话框的属性“字体”对话框的特殊属性Flags属性：设置显示字体的类型。对话框对话框值值说明说明cdlCFScreenFonts1显示屏幕字体cdlCFPrinterFonts2显示打印机字体cdlCFBoth3显示打印机字体和屏幕字体cdlCFEffects256在“字体”对话框显示删除线和下划线复选框以及颜色组合框“字体”对话框Flags属性设置值 第2626页任务分析3.通用对话框的属性d“字体”对话框的特殊属性(续)FontName属性：设置或返回文本字体。FontSize属性：设置或返
13、回文本字号。FontBold属性：设置或返回文本是否粗体。FontItalic属性：设置或返回文本是否斜体。FontStrikethru属性：设置或返回文本是否加删除线。FontUnderline属性：设置或返回文本是否加下划线。Color属性：返回或设置选定的字体颜色。第2727页任务分析3.通用对话框的属性“打印”对话框的特殊属性 Copies属性：设置或返回打印份数。FromPage属性：设置或返回打印起始页号。ToPage属性：设置或返回打印终止页号。第2828页任务分析4.通用对话框的调用方法例如：例如：Commondialog1.ShowOpen 或或 Commondialog1.
14、Action=1对话框对话框值值调用方法调用方法说明说明无对话框显示0没有通用对话框被选择“打开”对话框1ShowOpen选取要打开文件的文件名和路径“另存为”对话框2ShowSave用于保存文件的文件名和路径“颜色”对话框3ShowColor从标准色中选取或创建要使用的颜色“字体”对话框4ShowFont选取基本字体及设置想要的字体属性“打印”对话框5ShowPrinter选取打印机同时设置一些打印参数“帮助”对话框6ShowHelp与自制或原有的帮助文件取得连接第2929页任务实施1.创建新工程2.为工具箱添加CommonDialog控件 3.从工具箱中选择控件拖入窗体第3030页任务实施
15、3.设置窗体及控件的属性对象对象对象名对象名属性属性设置值设置值formForm1caption“通用对话框的使用”LabelLabel1Caption“请选择右端按钮进行操作”TextBoxTextBox1NameText1MultilineTrueScrollBars2-VerticalCommonDialogCommondialog1NameCommonDialog1CommandCommand1Caption打开文件Command2Caption保存文件Command3Caption设置字体Command4Caption退 出第3131页任务实施4.在代码窗口编写事件代码并保存、运行源
16、代码CommonDialog1.flags=3 设置显示字体为屏幕字体或打印机字体均可CommonDialog1.Action=4 调用“字体”对话框Label1.Caption=为文件+CommonDialog1.FileName+设置字体Text1.FontName=CommonDialog1.FontName 设置文本字体Text1.FontSize=CommonDialog1.FontSize 设置文本字号Text1.FontBold=CommonDialog1.FontBold 设置文本粗体Text1.FontItalic=CommonDialog1.FontItalic 设置文本斜
17、体第3232页任务设计完成效果第3333页任务任务3人事管理系统的登录对话框设计人事管理系统的登录对话框设计d设计一个对话框，要求用户输入用户名和密码，如果输入正确，显示“登录成功”并打开一个“展示屏幕”窗体，用户单击该窗体退出。如果输入三次不正确显示“密码错误”并退出。第3434页任务分析该任务我们要研究以下内容1.自定义对话框的设计方法2.自定义对话框的代码编写第3535页任务分析1.自定义对话框的设计方法点击“工程添加窗体”菜单项，弹出“添加窗体”对话框选择需要的对话框模板，点击“打开”将模板添加到VB工程环境后，其他的设计步骤与普通窗体的设计过程完全相同。第3636页任务分析2.自定义
18、对话框的代码编写系统自动生成的相关代码已经存在，用户只需要将自己设置的的相关属性和要添加的代码加入到对话框模板生成的对话框的属性窗口和代码中即可。第3737页任务实施1.创建新工程2.分别点击“工程添加窗体”菜单项，选择新建选项卡下的“登录对话框”，和“展示屏幕”窗体，单击“打开”。第3838页任务实施3.设置“展示屏幕”窗体的控件属性4.在代码窗口编写事件代码并保存、运行源代码 MsgBox 正确的密码，欢迎您!,登录 Me.Hide Load frmSplash MsgBox 无效的密码，请重试!,登录 txtPassword=txtPassword.SetFocus第3939页任务设计完成效果第4040页总结d 本课讲述了以下内容：1.输入对话框2.消息框3.通用对话框4.自定义对话框回到目录回到目录
