作為輕量級的控件，TextBox控件使用率很高，但相關的資料極少談及如何用TextBox控件打開和保存文件，大都采用回避的態度，對VB初學者帶來很多不便。筆者近日為友人做一個英文朗讀軟件，按友人的要求，軟件要能象MS的記事本那樣能打開和保存文檔。其實實現方法並不復雜，現將心得寫出來，希望對大家有幫助。如果您有更好的方法，請來信：
[email protected]。
'新建標准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下調試通過。->
