Option Explicit
Private Sub Form_Load()
'Text1.MultiLine = True
Text1.Text = ""
Dim s As String
Open "c:\1.txt" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, s ' 将数据读入变量。
Text1.Text = Text1.Text & s & vbCrLf ' 在text1中显示数据。
Loop
Close #1 ' 关闭文件
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。