Question

如何在VB中读一个文本文件并将内容显示在textbox控件中？

我的文件路径是f:\pinyin.txt我就是想点击一下command按钮在textbox中就显示出我的文本里的内容了

Answer 1

Private Sub Command1_Click()
Dim strLine As String
Text1.Text = ""
Open "f:\pinyin.txt" For Input As #1
While Not EOF(1)
Line Input #1, strLine
Text1.Text = Text1.Text & strLine & vbCrLf
Wend
Close #1
End Sub

Answer 2

Private Sub Command1_Click()
Dim a As String
Text1.Text = ""
Open "f:\pinyin.txt" For Input As #1 '1.txt是文件名
While Not EOF(1)
Line Input #1, a
Text1.Text = Text1.Text & a & vbCrLf
Wend
End Sub

Answer 3

dim str as string
open "f:\pinyin.txt" for input as #1
input #1,str
close #1
textbox.text=str