如何用VB6.0获取一个txt文件的所有文本，并显示在text1，文本框里

来源：百度知道 编辑：UC知道 时间：2024/06/23 01:37:57
如题，我希望通过按下一个按钮后出现的“打开文本”对话框选择文件，并在打开txt文件后把文件的所有文本显示在text1文本框里，希望能给一个例子

先添加commondialog控件到窗体，改名称CDL1，加按钮Cmd1，文本框TexT1..
Private Sub Cmd1_Click()
Dim yy$, FF&(10)
Text1 = ""
CDL1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CDL1.FileName = ""
CDL1.ShowOpen
On Error Resume Next
If CDL1.FileName = "" Then Exit Sub
FF(0) = FreeFile
Open CDL1.FileName For Input As #FF(0)
Text1 = ""
Text1 = StrConv(InputB(LOF(FF(0)), #FF(0)), vbUnicode)
Close #FF(0)
End Sub
注：TEXT控件貌似之能放最多64KB的字符，如果太多可以使用richtextbox控件。。