第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