VB: 讀取文字檔 顯示在textbox中.

Question

VB: 讀取文字檔 顯示在textbox中.
我有兩個textbox. 分別是要顯示C:中兩個txt檔中的資料
我該怎麼去寫呢?
動作是當程式一執行,這個兩textbox就自動去讀取C:中兩個txt檔中的資料.顯示出來.

下面是我本來的,我是想要把兩個檔的內容分別顯示在label8與label9中.
Private Sub Command1_Click()
f = FreeFile
Open "c:\text2.txt" For Output As #f
Print #f, Text1.Text
Close #f
K = FreeFile
Open "c:\text3.txt" For Output As #K
Print #K, Text2.Text
Close #K
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Label8_Click()

End Sub

Private Sub Label9_Click()

End Sub

W.J.S. 大大.
感謝你.這兩種辦法都可以用.但 都必需將滑鼠點在上面 或是經過它的內容才會顯示.
那不知道有沒有辦法做到 當程式開啟 它自動顯示呢?

Answer 1

'介紹兩種方式:'第1種,利用Input的方式1行1行的讀入,再放到Label8Private Sub Label8_Click()    Dim f As Long, S As String, S1 As String        f = FreeFile    Open "C:\Text2.txt" For Input As #f    Do Until EOF(f)       Line Input #f, S1       S = S & S1 & vbCrLf    Loop    Close #f    Label8.AutoSize = True    Label8.WordWrap = True    Label8 = Left(S, Len(S) - 1)End Sub'第2種,利用Binary的方式1次讀入,經過轉成Unicode再放到Label9(建議利用此方式讀檔,速度快)Private Sub Label9_Click()    Dim f As Long, S As String, A() As Byte        f = FreeFile    ReDim A(FileLen("C:\Text3.txt") - 1)    Open "C:\Text3.txt" For Binary As #f    Get #f, , A    Close #f    Label9.AutoSize = True    Label9.WordWrap = True    Label9 = StrConv(A, vbUnicode)End Sub

2006-07-01 16:02:13 補充：
'加上去Private Sub Form_Load()　　Label8_Click　　Label9_ClickEnd Sub