作为轻量级的控件，TextBox控件使用率很高，但相关的资料极少谈及如何用TextBox控件打开和保存文件，大都采用回避的态度，对VB初学者带来很多不便。笔者近日为友人做一个英文朗读软件，按友人的要求，软件要能象MS的记事本那样能打开和保存文档。其实实现方法并不复杂，现将心得写出来，希望对大家有帮助。如果您有更好的方法，请来信：handanfang@163.net。
　　
　　'新建标准EXE，加入一个TextBox控件，一个公共对话框，两个菜单。
　　
　　'打开
　　Private Sub mnuOpen_Click()
　　CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
　　CommonDialog1.ShowOpen
　　Open CommonDialog1.FileName For Input As #1
　　Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
　　Close #1
　　End Sub
　　
　　'保存
　　Private Sub mnuSave_Click()
　　On Error Resume Next
　　CommonDialog1.Filter ="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
　　CommonDialog1.ShowSave
　　Open CommonDialog1.FileName For Output As #1
　　Print #1, Text1.Text
　　Close 1
　　End Sub
　　
　　TextBox只支持打开64K以下的文件，建议最好设置出错处理。
　　以上程序在PWin98、VB6.0下调试通过。