On Error GoTo Err CommonDialog1.CancelError = True CommonDialog1.Filter = "Jpg (*.JPG)|*.JPG|BMP(*.BMP)|*.BMP" CommonDialog1.ShowOpen If CommonDialog1.filename <> "" Then .... End IfErr: If Err.Number = 32755 Then MsgBox "你按了取消!", vbCritical, "系统提示" End If
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Jpg (*.JPG)|*.JPG|BMP(*.BMP)|*.BMP"
CommonDialog1.ShowOpen If CommonDialog1.filename <> "" Then
....
End IfErr:
If Err.Number = 32755 Then
MsgBox "你按了取消!", vbCritical, "系统提示"
End If