紧急!!!为什么在窗口load的时候读一个空文本文件会报‘输入超出文件尾’呢

sudu0915 2005-09-04 06:49:00
下面这段代码是在form_load()时运行的,text2.txt是空文本,就弹出了‘输入超出文件尾’的错误提示。
Open "text2.txt" For Input As #1
Dim buff1 As String
Line Input #1, buff1
Text2.Text = buff1
Close #1


请问怎么解决,谢谢
...全文
115 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sudu0915 2005-09-04
  • 打赏
  • 举报
回复
多谢,原来On Error Resume Next这东西真管用呢
northwolves 2005-09-04
  • 打赏
  • 举报
回复
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

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧