首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请教用VB6如何读取某个文件中的内容并用文本框显示出来

2012-04-01 
请问用VB6怎么读取某个文件中的内容并用文本框显示出来?一个窗体中有一个文本框有一个文件c:\abc\file.txt

请问用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

热点排行