下面这段代码是在form_load()时运行的,text2.txt是空文本,就弹出了‘输入超出文件尾’的错误提示。
Open "text2.txt" For Input As #1
Dim buff1 As String
Line Input #1, buff1
Text2.Text = buff1
Close #1
请问怎么解决,谢谢
...全文
1152打赏收藏
紧急!!!为什么在窗口load的时候读一个空文本文件会报‘输入超出文件尾’呢
下面这段代码是在form_load()时运行的,text2.txt是空文本,就弹出了‘输入超出文件尾’的错误提示。 Open "text2.txt" For Input As #1 Dim buff1 As String Line Input #1, buff1 Text2.Text = buff1 Close #1 请问怎么解决,谢谢
Private Sub Form_Load()
On Error Resume Next
Open "text2.txt" For Input As #1
Dim buff1 As String
Line Input #1, buff1
Text2.Text = buff1
Close #1
End Sub