如何可以让文本文件里面的内容显示在
text控件里

Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii), KeyAscii
End Sub

比方说，弄一个按钮1，按一下，text控件的text属性就是  一个指定文本文件里面的内容

倒~~读取文本啊

下面代码将打开同目录下的slore.txt

Private Sub Command1_Click()
Open "slore.txt" For Input As #1
    Dim tep As String
    Do Until EOF(1)
        Line Input #1, tep
Text1.Text = Text1.Text & tep & vbCrLf
             Loop
Close #1
End Sub

呵呵，就是这个，谢谢了，
高手能不能帮我解释一下这些代码什么意思啊，
明白了有助于记忆，呵呵，
谢谢了

Private Sub Command1_Click() Open "slore.txt" For Input As #1 Dim tep As String Do Until EOF(1) Line Input #1, tep Text1.Text = Text1.Text & tep & vbCrLf '这个不要，不过意思。 Loop Close #1 End Sub

不要& vbCrLf   那文本文件里面的换行就显示不出来了
还有，按纽按2次，text里的内容就显示2遍

Private Sub Command1_Click() text1.Text ="" '先清空文本内容 Open "slore.txt" For Input As #1 Dim tep As String Do Until EOF(1) Line Input #1, tep Text1.Text = Text1.Text & tep & vbCrLf '忘了要加上~我都晕了 Loop Close #1 End Sub

呵呵，谢谢了

对不起，我是新手，请把这些用中文翻译一下好吗，帮帮忙 Private Sub Command1_Click() text1.Text ="" '先清空文本内容 Open "slore.txt" For Input As #1 Dim tep As String Do Until EOF(1) Line Input #1, tep Text1.Text = Text1.Text & tep & vbCrLf '忘了要加上~我都晕了 Loop Close #1 End Sub