设计了几个文件夹BOX控件，点之，如何在TEXT里显示打开的文本呢
设计了几个文件夹BOX控件，点之，如何在TEXT里显示打开的文本呢？
Private Sub File1_Click()
Dim SelectedFile As TextBox
SelectedFile = File1.Path & "\" & File1.FileName
Text1.Text = Text(SelectedFile)
End Sub
请代我修改下！谢谢！
Private Sub File1_Click()
Dim SelectedFile As TextBox
SelectedFile = File1.Path & "\" & File1.FileName
Text1.Text = Text(SelectedFile)
End Sub
请代我修改下！谢谢！
4/28 13:51:47
经高手修改后：Dim aStr As String
Open File1.Path & "\" & File1.FileName For Input As #1
While Not EOF(1)
Line Input #1, aStr
Text1.Text = Text1.Text + aStr + vbCrLf
Wend
执行之，出现提示框：
实时错误“76”
路径未找到 ！
