《Visual Basic程序设计》课程电子教案（PPT课件）第8章 通用对话框与文件操作

第8章通用对话框与文件操作 通用对话框 CommonDialog控件提供诸如打开和保存文 件、设置打印选项、选择颜色和字体等操作的 组标准对话框。运行 Windows帮助引擎时, 控件还能够显示帮助 2021/223

第8章 通用对话框与文件操作 2021/2/23 通用对话框 CommonDialog控件提供诸如打开和保存文 件、设置打印选项、选择颜色和字体等操作的 一组标准对话框。运行Windows帮助引擎时， 控件还能够显示帮助

第8章通用对话框与文件操作 通用对话框 ommonDialog控件可以显示如下常用对话框: 打开 另存为 颜色 字体 打印 2021/223

第8章 通用对话框与文件操作 2021/2/23 通用对话框 ommonDialog控件可以显示如下常用对话框： l 打开 l 另存为 l 颜色 l 字体 l 打印

第8章通用对话框与文件操作 通用对话框添加到工具箱 (1)右单击工具箱空白位置,选择弹出菜单中的“部件 ”命令,弹出“部件”对话框; (2)在对话框的“控件”列表框中选择“ Micor Soft Common Dialog Control603选项(使该选项前的复选框 中出现对钩) 3)单击“确定”按钮 通用对话框在工具箱中的图标是 2021/223

第8章 通用对话框与文件操作 2021/2/23 通用对话框添加到工具箱 (1) 右单击工具箱空白位置，选择弹出菜单中的“部件 ”命令，弹出“部件”对话框； ( 2) 在对话框的“控件”列表框中选择“MicorSoft Common Dialog Control6.0”选项(使该选项前的复选框 中出现对钩)； (3) 单击“确定”按钮。 通用对话框在工具箱中的图标是:

第8章通用对话框与文件操作 CommonDialog控件的方法 方法显示的对话框 ShowOpen打开 ShowSave 另存为 ShowColor颜色 ShowFont 字体 ShowPrinter打印 ShowHelp 调用 Windows帮助” 2021/223

第8章 通用对话框与文件操作 2021/2/23 CommonDialog控件的方法 方法显示的对话框 ShowOpen 打开 ShowSave 另存为 ShowColor 颜色 ShowFont 字体 ShowPrinter 打印 ShowHelp 调用Windows“帮助

第8章通用对话框与文件操作 显示“打开”和“另存为”对话 有了“打开”对话框就可指定驱动器、 目录、文件扩展名和文件名。 “另存为”对话框在外观上与“打开” 对话框相同,只是对话框的标题和文件 名是暗淡的。运行时选定文件并关闭对 话框后,可用 FileName属性获取选定的 文件名。 2021/223

第8章 通用对话框与文件操作 2021/2/23 显示“打开”和“另存为”对话 框 有了“打开”对话框就可指定驱动器、 目录、文件扩展名和文件名。 “另存为”对话框在外观上与“打开” 对话框相同，只是对话框的标题和文件 名是暗淡的。运行时选定文件并关闭对 话框后，可用FileName属性获取选定的 文件名

第8章通用对话框与文件操作 ivate Sub mnuFileOpen Click ( ancelerror为True Error Goto Errhandler mmonDialogl Filter HAll Files (*,大)|大.大|Text Files (* txt)I*. txt Batch Files (*.bat)I*.bat 设置过滤器 imonda1og1. FilterIndex=2'指定默认过滤器 mmonDialog1. ShowOpen'显示“打开”对话框 enFi1e( CommonDialog1. FileName)'调用打开文件的过程 kit sub Handler 用户单击“取消”按钮 kit sub End Sub 2021/223

第8章 通用对话框与文件操作 2021/2/23 Private Sub mnuFileOpen_Click () 'CancelError 为True On Error GoTo ErrHandler CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat“ '设置过滤器 CommonDialog1.FilterIndex = 2 '指定默认过滤器 CommonDialog1.ShowOpen '显示“打开”对话框 OpenFile (CommonDialog1.FileName) '调用打开文件的过程 Exit Sub ErrHandler: '用户单击“取消”按钮 Exit Sub End Sub

第8章通用对话框与文件操作 使用“颜色”对话框 可用“颜色”对话框在调色板中选择颜 色,或者创建并选定自定义颜国 基本赖色① 〓〓〓〓〓日 口口产■ 自定义颜色c) 图厂 规定自定义颜色①) 确定 取消 2021/223

第8章 通用对话框与文件操作 2021/2/23 使用“颜色”对话框 可用“颜色”对话框在调色板中选择颜 色，或者创建并选定自定义颜色

第8章通用对话框与文件操作 Private Sub Commandl Click ( 将 Cancel设置成True CommonDialogl Cance eRror TrueOn Error GoTo ErrHandler 设置F1ags属性 CommonDialogl Flags cdlCCRGBInit 显示“颜色”对话框 CommonDialog l. ShowColor 将窗体的背景颜色设置成选定的颜色 Forml BackColor CommonDialogl Color Exit sub Errhandler 用户单击了“取消”按钮 Exit sub End sub 2021/223

第8章 通用对话框与文件操作 2021/2/23 Private Sub Command1_Click () '将Cancel设置成True CommonDialog1.CancelError = TrueOn Error GoTo ErrHandler '设置Flags属性 CommonDialog1.Flags = cdlCCRGBInit '显示“颜色”对话框 CommonDialog1.ShowColor '将窗体的背景颜色设置成选定的颜色 Form1.BackColor = CommonDialog1.Color Exit Sub ErrHandler: '用户单击了“取消”按钮 Exit Sub End Sub

第8章通用对话框与文件操作 使用“字体”对话框 Color 选定的颜色。为使用此属性,必须 先将Fags属性设置为 cdIcFEffects FontBold是否选定“粗体” Fontltalic是否选定“斜体” FontStrikethru是否选定删除线 FontUnderline是否选定下划线 FontName 选定的字体名称 Fontsize 选定的字体大小 2021/223

第8章 通用对话框与文件操作 2021/2/23 使用“字体”对话框 Color 选定的颜色。为使用此属性，必须 先将Flags属性设置为cdlCFEffects FontBold 是否选定“粗体” FontItalic 是否选定“斜体” FontStrikethru 是否选定删除线 FontUnderline 是否选定下划线 FontName 选定的字体名称 FontSize 选定的字体大小

第8章通用对话框与文件操作 (2)用 Show Font方法显示对话框 Private Sub Command1 Click ( 显示“字体”对话框 CommonDialog l Show Font Text1. Font Name CommonDialogl FontName Text1. Font. size CommonDialog 1. Fontsize Textl. Font Bold= CommonDialog l. FontBold Textl. Font. Italic CommonDialogl Fontitalic Text1. Font. Underline =CommonDialogl FontUnderline extl Font strikethru CommonDialogl Fontstrikethru Textl. Fore color CommonDialogl Color Exit Sub 用户单击了“取消”按钮 Exit sub End sub 2021/223

第8章 通用对话框与文件操作 2021/2/23 （2）用ShowFont方法显示对话框 Private Sub Command1_Click () '显示“字体”对话框 CommonDialog1.ShowFont Text1.Font.Name = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize Text1.Font.Bold = CommonDialog1.FontBold Text1.Font.Italic = CommonDialog1.FontItalic Text1.Font.Underline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color Exit Sub '用户单击了“取消”按钮 Exit Sub End Sub