Visual_Basic_清华大学vb编程语言基础_第10讲.pptVIP

通用对话框 Visual Basic的通用对话框控件提供了一组标准的Windows对话框，分别是：“打开” 、“另存为”、“颜色”、“字体”、“打印”和“帮助”对话框 通用对话框控件是ActiveX控件， 位于“Microsoft CommonDialog Control 6.0” 中。 在设计阶段，通用对话框以图标形式显示在窗体上，其大小不能改变，在运行阶段，通用对话框隐藏。 通用对话框 对话框类型 Action属性 Show方法 显示打开文件对话框 1 ShowOpen 显示另存为对话框 2 ShowSave 显示颜色对话框 3 ShowColor 显示字体对话框 4 ShowFont 显示打印对话框 5 ShowPrinter 显示帮助对话框 6 ShowHelp 需要用Action 属性或Show方法激活方可调出相应的对话框 Action属性只能在运行阶段用程序设置或引用 通用对话框只是输入/输出的界面，不能真正实现如文件打开、保存等操作，要实现这些功能必须要编写程序。 通用对话框属性 DialogTitle属性 用于设置对话框的标题 CancelError属性 用于设置当用户单击通用对话框的“取消”按钮时，是否产生出错信息，有两个取值： True和False True：出现错误警告。 False：不出现错误警告，缺省设置。 Action属性 “打开”对话框 用来遍历整个磁盘，找到所需的文件，是Windows应用程序中常用的对话框 具有通用对话框的通用属性 FileName属性 用于设置或返回要打开文件的路径及文件名，属性值为字符串 “打开”对话框 Filter属性 用于指定过滤文件的类型，只有指定的文件类型，才出现在“文件类型”列表框中， 设计阶段：说明1| 文件类型1| 说明2| 文件类型2…… 运行阶段： 对话框名.Filter=“说明1| 文件类型1| 说明2| 文件类型2……” 用于返回打开文件的文件名 在设计时无效，在运行时只读 与FileName属性不同之处是该属性不返回路径 FileTitle属性 “打开”对话框 FilterIndex属性 用来指定缺省的过滤器，用Filter属性设置多个过滤器后，每个过滤器自动获得一个值，第一个过滤器的值是1，第二个过滤器的值是2，…… InitDir属性 用于指定“打开”对话框中的初始目录，缺省显示当前目录 “另存为”对话框 是Windows存储文件时的一个标准界面，可供用户选择和输入保存文件的路径和文件名 具有通用对话框的通用属性 具有“打开”对话框的属性 DefaultExt属性 表示保存文件的缺省扩展名 当保存的文件没有扩展名时，自动给该文件添加由DefaultExt属性指定的扩展名 “打开”和“保存”对话框 –例 图片浏览和保存功能 对象 属性 值 image1 Stretch True CommonDialog1 Filter jpg文件| *.jpg |gif文件| *.gif Private Sub Command1_Click() CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) End Sub Private Sub Command2_Click() CommonDialog1.ShowSave SavePicture Image1.Picture, CommonDialog1.FileName End Sub “颜色”对话框 是Windows环境下设置颜色的一个标准界面 具有通用对话框的通用属性 Color属性 用于设置初始颜色，并可返回用户所选择的颜色 Flags属性 用于设置“颜色”对话框的类型，有四种取值1、2、4、8 1：使Color属性定义的颜色在首次显示对话框时显示出来 2：打开完整的“颜色”对话框 4：只有基本颜色窗口，禁止打开自定义颜色窗口 8：显示一个“帮助”按钮 “字体”对话框 设置并返回所用字体的名字、字形、大小、效果和颜色 具有通用对话框的通用属性 Flags属性 设置通用对话框是否显示屏幕字体、打印机字体或两者皆有，是必须设置的属性，Flags属性必须是下列常数之一与其他选项之和： cdlCFScreenFonts或1：屏幕字体 cdklCFPrinterFonts或2：打印机字体 cdlCFBoth或3：两种字体都有 “字体”对话框 Flag属性设为259（3+256）是3与常数cdlcFEffects（256，允许中划线、下