第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