on error goto errto commondialog.cancelError=true....exit sub ErrTo: msgbix err.descp按了'取消' 会提示的
Private Sub Command1_Click() On Error GoTo ErrTo CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameCommonDialog.CancelError = TrueExit Sub ErrTo:MsgBox Err.DescriptionEnd Sub可我怎么也没得出想要得结果 无论是确定还是取消,都有对话框弹出能不能给一个例子? 确定弹出一个对话框 取消弹出另一个对话框 多谢
哎呀呀,你可以加一个标志变量,或写一段判断的小FUNCTION吗,BEN你~~:)
语句的顺序反了,应该: Private Sub Command1_Click() On Error GoTo ErrTo CommonDialog.CancelError = True CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName Exit Sub ErrTo: MsgBox Err.Description End Sub
commondialog.cancelError=true....exit sub
ErrTo: msgbix err.descp按了'取消' 会提示的
On Error GoTo ErrTo
CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameCommonDialog.CancelError = TrueExit Sub
ErrTo:MsgBox Err.DescriptionEnd Sub可我怎么也没得出想要得结果
无论是确定还是取消,都有对话框弹出能不能给一个例子?
确定弹出一个对话框
取消弹出另一个对话框
多谢
Private Sub Command1_Click()
On Error GoTo ErrTo CommonDialog.CancelError = True
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName Exit Sub
ErrTo:
MsgBox Err.Description
End Sub