如何用TextBox打开和保存文件

2018-06-17 17:16:07来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

作为轻量级的控件,TextBox控件使用率很高,但相关的资料极少谈及如何用TextBox控件打开和保存文件,大都采用回避的态度,对VB初学者带来很多不便。笔者近日为友人做一个英文朗读软件,按友人的要求,软件要能象MS的记事本那样能打开和保存文档。其实实现方法并不复杂,现将心得写出来,希望对大家有帮助。如果您有更好的方法,请来信:handanfang@163.net。

'新建标准EXE,加入一个TextBox控件,一个公共对话框,两个菜单。

'打开
PrivateSubmnuOpen_Click()
CommonDialog1.Filter="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
Text1.Text=StrConv(InputB$(LOF(1),1),vbUnicode)
Close#1
EndSub

'保存
PrivateSubmnuSave_Click()
OnErrorResumeNext
CommonDialog1.Filter="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text1.Text
Close1
EndSub

TextBox只支持打开64K以下的文件,建议最好设置出错处理。
以上程序在PWin98、VB6.0下调试通过。->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VisualBasic属性、方法和事件三

下一篇:VB千里行-让程序在后台运行