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
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