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

2025-05-23 20:15:46
推荐回答(1个)
回答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