选择了取消会产生错误,所以用on error

解决方案 »

  1.   

    用On error goto 标号: 的同时要将,commondialog.CancelError = True好像 err.number=32755 是点击了取消按钮!!!!!!
      

  2.   

    on error goto errto
    commondialog.cancelError=true....exit sub
    ErrTo: msgbix err.descp按了'取消' 会提示的 
      

  3.   

    Private Sub Command1_Click()
    On Error GoTo ErrTo
    CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameCommonDialog.CancelError = TrueExit Sub
    ErrTo:MsgBox Err.DescriptionEnd Sub可我怎么也没得出想要得结果
    无论是确定还是取消,都有对话框弹出能不能给一个例子?
    确定弹出一个对话框
    取消弹出另一个对话框
    多谢
      

  4.   

    哎呀呀,你可以加一个标志变量,或写一段判断的小FUNCTION吗,BEN你~~:)
      

  5.   

    语句的顺序反了,应该:
    Private Sub Command1_Click()
        On Error GoTo ErrTo    CommonDialog.CancelError = True
        CommonDialog1.ShowOpen
        MsgBox CommonDialog1.FileName    Exit Sub
    ErrTo:
        MsgBox Err.Description
    End Sub