我用ShowSave方式打开了commonDialog控件,问题是:我在程序中应怎样判断按的是对话框的确认健还是取消健代码如下:
    coDiaExport.ShowSave
    strFileLocal = coDiaExport.FileName
之后我用语句:If strFileLocal = "" Then 判断是否按的是“取消”健,好像不行,请问高手,先谢了

解决方案 »

  1.   

    Private Sub mnuSaveAs_Click()
    On Error GoTo Errhandle
        With Dialog
            .Filter = "试题记录文件(*.ppr)|*.ppr"
            .DefaultExt = "ppr"
            .FileName = fl
            .CancelError = True
            .Flags = &H2 + &H800
            
            .ShowSave
            fl = .FileName        On Error GoTo 0
        End With
        FlagSave = True
        
        Exit Sub
    Errhandle:
      If Err.Number = 32755 Then Exit Sub '按的取消键
      
      ErrView Err.Description
    End Sub
      

  2.   

    Errhandle:   
     If Err.Number = 32755 Then'按的取消键
      
            Exit Sub
        End If32755 就是取消见的错误代码
    捕捉它就可以了