CommonDialog1

最新推荐文章于 2022-04-18 16:25:06 发布

xubo8219

最新推荐文章于 2022-04-18 16:25:06 发布

阅读量872

点赞数

文章标签： output 文档 vb

本文链接：https://blog.csdn.net/xubo8219/article/details/3024423

版权

VB中的对话框控件不论是，打开还是保存都需要一个完整的操作过程，按了保存而没有完成了保存的操作，就会出现错误，有两种方法可以不出错（我只知道两种）
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
if commondialog1.filename="" then exit sub
Open CommonDialog1.FileName For Output As #1
Print #1, Text10.Text
Close 1
end if
也可以在程序的前面加上错误处理语句：
on error goto connerror
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text10.Text
Close 1
connerror:
就这样，可以了。