|
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) ' 循環(huán)至文件尾。 Input #1, s ' 將數(shù)據(jù)讀入變量。 Text1.Text = Text1.Text & s & vbCrLf ' 在text1中顯示數(shù)據(jù)。 Loop Close #1 ' 關閉文件 End Sub |
|
|
