第8章_对话框和菜单.ppt

* * * * * * * * * * * 应用型高校本科教程 Visual Basic 程序设计 课程 8.3 菜单设计 8.2 通用对话框 8.1 自定义对话框 第8章 对话框和菜单 第8章对话框和菜单 * 本章内容 8.1自定义对话框 8.2 通用对话框 8.3 菜单设计 * 8.1 自定义对话框 对话框 用于提示用户输入数据、确认或显示信息 对话框不能改变窗体大小，VB提供3种方法创建对话框 预定义对话框 利用系统内部函数产生对话框，两种预定义对话框 输入框（inputbox） 消息框（msgbox） 自定义对话框 用户根据需要设计对话框 通用对话框 VB提供了专用的对话框控件 8.1 自定义对话框 8.1.1 普通窗体创建自定义对话框 【例8-1】设计简单的登录对话框 * 8.1 自定义对话框 Private Sub Command1_Click() 单击“欢迎光临”按钮 Form2.Show Form1.Hide End Sub Private Sub Command1_Click() 单击“确定”按钮 If Text1.Text = PassWord Then 调用相应应用程序 Else MsgBox 密码错误，重新输入！ End If End Sub BorderStyle属性：3 8.1.2 使用对话框模板创建对话框 执行工程 →添加窗体→对话框→对话框 已设置程序代码供使用 * 8.1 自定义对话框 8. 2 通用对话框Common Dialog VB提供了一组基于Windows的标准对话框。利用通用对话框控件可创建打开文件、保存文件、字体、颜色、打印等对话框 添加用对话框控件 执行工程→部件或右击工具箱→部件→Microsoft Common Dialog 6.0 * 8. 2 通用对话框 通用对话框的2种打开方法 使用Action属性 使用Show方法 如：打开文件对话框 CommonDialog1.Action = 1 或 CommonDialog1.ShowOpen * ShowHelp 6 帮助对话框 ShowPrinter 5 打印机对话框 ShowFont 4 字体对话框 ShowColor 3 颜色对话框 ShowSave 2 另存为对话框 ShowOpen 1 打开文件对话框 Show方法 Action属性 通用对话框的类型 8. 2 通用对话框 通用对话框控件的属性设置 右击对话框控件→属性 * 8. 2 通用对话框 8.2.1 打开/另存为对话框 通用对话框常用属性 Dialog Title：对话框标题 如设置标题：打开文件或另存文件为 CommonDialog1.DialogTitle = 打开文件 FileName：返回选中的文件名称 如打开C:\test.txt文件： CommonDialog1.FileName=C:\test.txt InitDir： 如初始化路径C:\ CommonDialog1. InitDir=C:\ Filter：过滤器 如过滤文件XLS CommonDialog1. Filter=Excel文件|*.xls DefaultExt：缺省扩展名 * 8. 2 通用对话框 【例8-2】设计一个简单的图片浏览程序，可以加载显示图片，也可以保存图片 * Private Sub Command1_Click() CommonDialog1.DialogTitle = 打开图片文件 CommonDialog1.InitDir = C:\ CommonDialog1.Filter = 所有文件(*.*)|*.*|gif文件|*.gif CommonDialog1.FilterIndex = 2 CommonDialog1.FileName = pic1.gif 一般不设 CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.FileName) End Sub Private Sub Command2_Click() CommonDialog1.DialogTitle = 图片另存为 CommonDialog1.InitDir = C:\ CommonDialog1.Filter = 所有文件(*.*)|*.*|gif文件|*.gif CommonDialog1.DefaultExt = bmp CommonDialog1.ShowSave SavePictu