《程序设计基础——Visual Basic6.0案例教程 第2版 教学课件 ppt 作者 刘宝山 李丕瑾 第五章》由会员分享，可在线阅读，更多相关《程序设计基础——Visual Basic6.0案例教程 第2版 教学课件 ppt 作者 刘宝山 李丕瑾 第五章（40页珍藏版）》请在金锄头文库上搜索。
1、第五章,对话框,第2页,2019/5/22,本章目标,掌握Visual Basic语言中的各类对话框的创建和基本使用方法 能够使用系统提供的输入对话框、消息对话框、通用对话框以及自定义对话框等获得窗体编程的技能,第3页,2019/5/22,任务1修改成绩对话框的设计,设计一个修改成绩的对话框。在窗体上显示一个文本框并显示成绩为80分，如果需要修改就单击修改成绩按钮，弹出消息确认是否修改，如果点击“是”，要求用户输入一个范围在0到100之间的数字，判定该数字是在该范围以内，显示正确并将原来的80分改为新输入的成绩，如果超出范围提示输入错误，如果选择“取消”则将取消本次修改操作。,第4页,2019
2、/5/22,任务分析,该任务我们要学习以下几项内容: 对话框的基本特点 输入对话框 消息框,第5页,2019/5/22,任务分析,对话框的基本特点 对话框是VB应用程序在执行过程中与用户进行交流的窗口。通过对话框可以及时有效地和用户交流，获得数据或者反馈结果。在Visual Basic中，可以利用系统提供的通用对话框，也可以根据需要自己设计对话框。 典型的对话框 通常没有菜单 不能调整对话框大小 也很少作为应用程序的主界面,第6页,2019/5/22,任务分析,输入对话框 是系统定义的对话框。 该对话框包含一个消息提示、一个文本框以及两个命令按钮“确定”和“取消”。对话框等待用户输入文本或单击
3、按钮，然后返回文本框的内容。 输入框的样式是固定的，用户不能改变。 文本框和输入对话框都可以接受用户的输入，但是其风格和用法有区别。,第7页,2019/5/22,任务分析,输入对话框 InputBox$(提示,标题,缺省值,x坐标位置,y坐标位置) 语法参数含义： $：可选项，表示当该参数存在时，返回的是字符型数据，该参数不存在时，返回的是变体型数据。 提示：必选项，字符表达式，用于提示用户输入的信息内容。 标题：可选项，字符表达式，用于设置输入对话框标题栏中的标题。省略时使用工程名的标题。 缺省值：可选项，用来在输入对话框的输入文本框中显示一个默认值。,第8页,2019/5/22,任务分析,
4、输入对话框 带返回值的InputBox函数使用方法如下 yy=inputbox$(”请输入姓名”, ”姓名输入框”,2000,3000) 显示结果是输入框显示左上角位置是在屏幕的(2000,3000)， yy获得的值在单击“确定”按钮时是一个输入文本框的字符串, 在单击“取消”按钮时是一个零长度的字符串。 InputBox函数后的一对圆括号不能省略。,第9页,2019/5/22,任务分析,输入对话框 不带返回值的InputBox函数使用方法如下： inputbox$”请输入姓名”, ”姓名输入框”,2000,3000 显示结果与带返回值的InputBox函数使用方法的相同，但不会向表达式或变量
5、传递返回值。 函数后的圆括号可以省略，但参数间的逗号不可省,第10页,2019/5/22,任务分析,消息框 MsgBox函数可在屏幕上出现一个消息框，消息框通知用户消息并等待用户来选择消息框中的按钮，MsgBox函数返回一个与用户所选按钮相对应的整数。 语法： MsgBox(提示,标志和按钮,标题) “提示”和“标题”的含义同InputBox函数 “标志和按钮”指定按钮的数目及类型，使用的图标样式及缺省按钮 是按钮数目、使用的图标样式以及缺省按钮三项所对应的数据之和。 缺省值是0。,第11页,2019/5/22,任务分析,消息框 表5-2 MsgBox函数中按钮和标志值,第12页,2019/5
6、/22,任务分析,消息框 MsgBox函数中按钮返回值,第13页,2019/5/22,任务分析,消息框 带返回值 answer=MsgBox(”确定要退出吗？”,36,”请选择”) 不带返回值 MsgBox ”确定要退出吗？”36,”请选择”,第14页,2019/5/22,任务分析,InputBox函数格式固定并只能接受用户输入的一个值，可用于设计输入较为简单的信息的窗体设计。 MsgBox函数是单向的向用户提供消息，并不接受输入，它的功能是告知用户发生了什么或刚才用户的操作的结果，因此适合作为消息提示或警告窗体的设计。,第15页,2019/5/22,任务实施,创建新工程 从工具箱中选择控件拖
7、入窗体,第16页,2019/5/22,任务实施,在按钮的Click事件中编写代码，生成若干个消息框和一个输入框并根据消息框和输入框的返回值进行选择和判断； 在代码窗口编写事件代码并保存、运行 源代码,num = InputBox(“请输入成绩分数在0100之间“, “修改成绩“) If num = 0 And num = 100 Then MsgBox “输入正确，立刻修改“, 64, “特别提示“ Text1.Text = num Else MsgBox “输入错误！不能修改！“, 16, “特别提示“ End If,第17页,2019/5/22,任务设计完成效果,设计后的对话框,自定义对话
8、框,输入对话框,消息框,第18页,2019/5/22,任务2带有文件打开和保存、设置字体等功能对话框的设计,在左端的文本框内显示打开的文件，文本框内的文字可以设置字体，并保存。当使用右端的任意按钮时，标签标题显示为文件路径、文件名称和文件操作的描述。,第19页,2019/5/22,任务分析,该任务我们要研究以下内容: 通用对话框的特点 通用对话框的加载 通用对话框的属性 通用对话框的调用方法,第20页,2019/5/22,任务分析,通用对话框的特点 VB提供了一组基于Windows的常用的标准对话框界面，用户可以充分利用通用对话框（Common Dialog）控件在窗体上创建6种标准对话框，不
9、需要自己设计。 打开（Open）对话框 另存为（Save As）对话框 颜色（Color）对话框 字体（Font）对话框 打印（Printer）对话框 帮助（Help）对话框,第21页,2019/5/22,任务分析,通用对话框的加载 通过菜单“工程部件”加载“Microsoft Common Dialog Control 6.0”，在工具栏内添加通用对话框控件。 任意窗体上使用通用对话框，要将通用对话框控件拖动到窗体上，并设置相关属性。,第22页,2019/5/22,任务分析,通用对话框的属性 通用对话框共有属性 Name是通用对话框的名称属性 Index是由多个对话框组成的控件数组的下标 L
10、eft和Top表示通用对话框的位置 Action功能属性,第23页,2019/5/22,任务分析,通用对话框的属性 “打开”对话框的特殊属性 FileName属性：表示用户要打开文件的文件名（包含路径）。 FileTitle属性：表示用户要打开文件的文件名（不包含路径）。 Filter属性：过滤器属性，用于确定文件列表框中所显示文件的类型，是由一组元素或由”|”分开的分别表示不同类型文件的多组元素组成。 FilterIndex属性：过滤器索引属性，整型，表示用户在文件类型列表框中选定了第几组文件类型。 InitDir属性：初始化路径属性，用来指定“打开”对话框的初始目录。,第24页,2019/
11、5/22,任务分析,通用对话框的属性 “另存为”对话框的特殊属性 DefaultExt属性：表示默认扩展名。 “颜色”对话框的特殊属性 Color属性：返回或设置通用对话框的颜色。,第25页,2019/5/22,任务分析,通用对话框的属性 “字体”对话框的特殊属性 Flags属性：设置显示字体的类型。,“字体”对话框Flags属性设置值,第26页,2019/5/22,任务分析,3. 通用对话框的属性 “字体”对话框的特殊属性(续) FontName属性：设置或返回文本字体。 FontSize属性：设置或返回文本字号。 FontBold属性：设置或返回文本是否粗体。 FontItalic属性：设
12、置或返回文本是否斜体。 FontStrikethru属性：设置或返回文本是否加删除线。 FontUnderline属性：设置或返回文本是否加下划线。 Color属性：返回或设置选定的字体颜色。,第27页,2019/5/22,任务分析,通用对话框的属性 “打印”对话框的特殊属性 Copies属性：设置或返回打印份数。 FromPage属性：设置或返回打印起始页号。 ToPage属性：设置或返回打印终止页号。,第28页,2019/5/22,任务分析,通用对话框的调用方法 例如： Commondialog1.ShowOpen 或 Commondialog1.Action = 1,第29页,2019/
13、5/22,任务实施,创建新工程 为工具箱添加CommonDialog控件 从工具箱中选择控件拖入窗体,第30页,2019/5/22,任务实施,设置窗体及控件的属性,第31页,2019/5/22,任务实施,4. 在代码窗口编写事件代码并保存、运行 源代码,CommonDialog1.flags = 3 设置显示字体为屏幕字体或打印机字体均可 CommonDialog1.Action = 4 调用“字体”对话框 Label1.Caption = “为文件“ + CommonDialog1.FileName + “设置字体“ Text1.FontName = CommonDialog1.FontNa
14、me 设置文本字体 Text1.FontSize = CommonDialog1.FontSize 设置文本字号 Text1.FontBold = CommonDialog1.FontBold 设置文本粗体 Text1.FontItalic = CommonDialog1.FontItalic 设置文本斜体,第32页,2019/5/22,任务设计完成效果,第33页,2019/5/22,任务3人事管理系统的登录对话框设计,设计一个对话框，要求用户输入用户名和密码，如果输入正确，显示“登录成功”并打开一个“展示屏幕”窗体，用户单击该窗体退出。如果输入三次不正确显示“密码错误”并退出。,第34页,2
15、019/5/22,任务分析,该任务我们要研究以下内容 自定义对话框的设计方法 自定义对话框的代码编写,第35页,2019/5/22,任务分析,自定义对话框的设计方法 点击“工程添加窗体”菜单项，弹出“添加窗体”对话框 选择需要的对话框模板，点击“打开” 将模板添加到VB工程环境后，其他的设计步骤与普通窗体的设计过程完全相同。,第36页,2019/5/22,任务分析,自定义对话框的代码编写 系统自动生成的相关代码已经存在，用户只需要将自己设置的的相关属性和要添加的代码加入到对话框模板生成的对话框的属性窗口和代码中即可。,第37页,2019/5/22,任务实施,创建新工程 分别点击“工程添加窗体”菜单项，选择新建选项卡下的“登录对话框”，和“展示屏幕”窗体，单击“打开”。,第38页,2019/5/22,任务实施,设置“展示屏幕”窗体的控件属性 在代码窗口编写事件代码并保存、运行 源代码,MsgBox “正确的密码，欢迎您!“, , “登录“ Me.Hide Load frmSplash,MsgBox “无效的密码，请重试!“, , “登录“ txtPassword = “ txtPassword.SetFocus,第39页,2019/5/22,任务设计完成效果,第40页,2019/5/22,总结,本课讲述了以下内容： 输入对话框 消息框 通用对话框 自定义对话框,回到目录,
