在VB6中,如果我在“打开文件”对话框中按“取消”按钮,我的文件名仍会添加到我的列表框中. 例如: Private Sub btnImportImage_Click() DailogOpenFile.ShowOpen If Trim$(txtEmailAttachment.Text) = "" Then txt
例如:
Private Sub btnImportImage_Click() DailogOpenFile.ShowOpen If Trim$(txtEmailAttachment.Text) = "" Then txtEmailAttachment.Text = DailogOpenFile.FileName Else txtEmailAttachment.Text = txtEmailAttachment.Text & ";" & DailogOpenFile.FileName End If End Sub看起来你正在使用CommonDialog控件?如果是这样,您需要将CancelError属性设置为True,然后测试错误.例如:
Private Sub btnImportImage_Click() DailogOpenFile.CancelError = True On Error Resume Next DailogOpenFile.ShowOpen If Err.Number = &H7FF3 Then ' Cancel clicked Else End If ... End Sub
当然,您也可以跳转到错误处理程序:
Private Sub btnImportImage_Click() DailogOpenFile.CancelError = True On Error GoTo MyErrorHandler DailogOpenFile.ShowOpen ... MyErrorHandler: ' Cancel was clicked or some other error occurred End Sub