请问用VB6怎么读取某个文件中的内容并用文本框显示出来?
一个窗体中有一个文本框
有一个文件 c:\abc\file.txt
file.txt 中写着一段话(如“感谢朋友的帮助”)
现在要实现的效果就是
窗体运行时 文本框中即显示出 file.txt 中的内容来
请问这样的代码怎么写?谢谢
[解决办法]
提供思路你自己完善
Dim strBuff As String
Dim i As Long
Open "f:\file.txt " For Output As #1
Do While (Not EOF(1))
Line Input #1, strBuff
Print #1, strBuff
Loop
Close (1)
[解决办法]
'Set Property MultiLine of Text1 to True
Private Sub Form_Load()
Dim Buffer() As Byte
Open "F:\Backup\ghm_working_data\SKILL\文件系统\SetFileTime.txt " For Binary As #1
ReDim Buffer(LOF(1) - 1)
Get #1, , Buffer
Close #1
Text1 = StrConv(Buffer, vbUnicode)
End Sub