谢谢

解决方案 »

  1.   

    先设置CommonDialog1.CancelError=True Private Sub Command1_Click()
        On Error GoTo es
        Me.CommonDialog1.ShowColor
        MsgBox "选取了确定"
        Exit Sub
    es:
        MsgBox Err.Description
    End Sub
      

  2.   

    一般都是判断取消是不是按下的
    pcwak说得没错
      

  3.   

    是啊,是有问题!
    楼主的问题是如何判断Common dialog控件提供的操作对话框执行后是点的确认还是取消?
      

  4.   

    通過看commom dialog返回值的檢查,選取消一般返回空
      

  5.   

    Private Sub Command1_Click()
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    MsgBox CommonDialog1.filename
    Exit SubErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
    End Sub