vb6.0 CommonDialog控件问题

来源：百度知道 编辑：UC知道 时间：2024/05/18 12:23:18
使用CommonDialog控件选择文件，“取消”按钮怎么不起作用？就像下边的程序

On Error GoTo ErrHandler

CommonDialog1.Filter = "mdb Files (*.mdb)|*.mdb" '设置过滤器
CommonDialog1.FilterIndex = 2 '指定缺省过滤器
CommonDialog1.ShowOpen '显示“打开”对话框
MsgBox "nihao"
Exit Sub

ErrHandler:
'用户按“取消”按钮。
Exit Sub

我按了“取消”按钮，还是执行了msgbox 。怎么解决？

把Commondialog的CancelError属性设置为True再运行代码即可。

On Error GoTo ErrHandler

CommonDialog1.Filter = "mdb Files (*.mdb)|*.mdb" '设置过滤器
CommonDialog1.FilterIndex = 2 '指定缺省过滤器
CommonDialog1.ShowOpen '显示“打开”对话框
if CommonDialog1.filename <>"" then
MsgBox "nihao"
end if
Exit Sub

ErrHandler:
'用户按“取消”按钮。
Exit Sub