vb的commandialog中的showopen:运行中如果按了"取消"键,会非法操作,怎么解决?

Question

不会啊
要不你用api吧GetOpenFileName

Answer 1

正常结果。在commandialog中，如果用户是单击取消，则commandialog会返回一个错误，你可以捕获这个commandialog错误，进行处理。

Answer 2

如果用户点取消的话就可以扑获32755这个错误Private Sub cmdcancel_Click()    On Error GoTo ErrHand:
    Me.dlgNewFile.CancelError = True '如果用户点取消的话就可以扑获32755这个错误
    Me.dlgNewFile.Filter = "mdb (*.mdb)|*.mdb"
    Me.dlgNewFile.ShowSave
    Me.txtBackupDir.Text = Me.dlgNewFile.FileName
    Exit Sub
ErrHand:    If Err.Number = 32755 Then        Exit Sub    Else        MsgBox "文件选择出错", vbInformation, "提示"
        Exit Sub    End If    Me.txtBackupDir.Text = ""
End Sub

Answer 3

http://www.csdn.net/expert/topic/558/558804.xml?temp=8.387393E-02
主　　题：  请问有没有打开“保存对话框”的api函数？？

Answer 4

还可以参考http://www.csdn.net/expert/topic/560/560709.xml：自定义打开对话框

Answer 5

哪用到处参考呀，看看VB关于commondialog的范例程序就什么都解决了

Answer 6

  On Error GoTo 
 
 
  On Error GoTo 
 
 
  On Error GoTo 
 
 
  On Error GoTo 
 

Answer 7

1.先设Dialog的CancelError = true
2.如下:
回复人： cranberry(催眠) (  ) 信誉：97  2002-3-10 20:29:45  得分:0  
 
 
  如果用户点取消的话就可以扑获32755这个错误 Private Sub cmdcancel_Click() On Error GoTo ErrHand: 
Me.dlgNewFile.CancelError = True '如果用户点取消的话就可以扑获32755这个错误 
Me.dlgNewFile.Filter = "mdb (*.mdb)|*.mdb" 
Me.dlgNewFile.ShowSave 
Me.txtBackupDir.Text = Me.dlgNewFile.FileName 
Exit Sub 
ErrHand: If Err.Number = 32755 Then Exit Sub Else MsgBox "文件选择出错", vbInformation, "提示" 
Exit Sub End If Me.txtBackupDir.Text = "" 
End Sub