Private Sub Command1_Click() On Error Resume Next CommonDialog1.CancelError = True CommonDialog1.ShowColor If Err.Number > 0 Then Err.Clear Exit Sub Else MsgBox "单击了确定" End If End Sub
7,763
社区成员
197,605
社区内容
加载中
试试用AI创作助手写篇文章吧