检测 CommonDialog 控件中的取消按钮
Detecting Cancel button in CommonDialog control
在 VB6 中,如果我在 Open File
对话框中按下 Cancel
按钮,我的文件名仍会添加到我的列表框中。
例如:
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
在 VB6 中,如果我在 Open File
对话框中按下 Cancel
按钮,我的文件名仍会添加到我的列表框中。
例如:
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