7,788
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
davidlv 2003-12-26
- 打赏
- 举报
'定义对话框默认属性
dlg.CancelError = True '可以捕获按下cancel按钮
dlg.FileName = nFileName & ".txt"
dlg.DialogTitle = "保存日志"
dlg.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
dlg.ShowSave
dlg.CancelError = True '可以捕获按下cancel按钮
dlg.FileName = nFileName & ".txt"
dlg.DialogTitle = "保存日志"
dlg.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
dlg.ShowSave
shairy 2003-12-26
- 打赏
- 举报
或者在Show前设一下Dialog的CancelError属性为True。如果按下Cancel，就会触发一个错误，错误号为32775。判断一下错误号就可以进行不同的处理了。但是这样必须在函数头加上On Error Resume next。
godidea 2003-12-26
- 打赏
- 举报
解决了，楼上的不全对！！！，在第二次调用cancel时就不对
yassee 2003-12-26
- 打赏
- 举报
楼上的很对，做个判断就好啦。
liuyanghe111 2003-12-26
- 打赏
- 举报
按下了Open按钮,对话框的FileName属性返回选中的文件路径,按下cancel返回空字符串
