查人人中国名人网小北方整合表情包:VB，看一下我的语法有没有错误！
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 06:00:10
On Error GoTo err
Open Trim(Text1.Text) For Input As #1
‘Dim 姓名位置 As Long
Dim 内容 As String, 临时内容 As String
Do Until EOF(1)
Line Input #1, 临时内容
内容 = 内容 & 临时内容 & Chr(13) & Chr(10)
Loop
Text2.Text = 内容
Close #1
Exit Sub
err:
MsgBox err.Description, 16, "错误:" & err.Number
执行不到这个位置来啊
Line Input #1, 临时内容
内容 = 内容 & 临时内容 & Chr(13) & Chr(10)
啥问题啊？
救救我啊
Open Trim(Text1.Text) For Input As #1
‘Dim 姓名位置 As Long
Dim 内容 As String, 临时内容 As String
Do Until EOF(1)
Line Input #1, 临时内容
内容 = 内容 & 临时内容 & Chr(13) & Chr(10)
Loop
Text2.Text = 内容
Close #1
Exit Sub
err:
MsgBox err.Description, 16, "错误:" & err.Number
执行不到这个位置来啊
Line Input #1, 临时内容
内容 = 内容 & 临时内容 & Chr(13) & Chr(10)
啥问题啊？
救救我啊
因为执行到Open Trim(Text1.Text) For Input As #1
出错了，跳入err去执行了
最好对text1输入框的内容做一下检验，本身语法没问题
Do Until EOF(1)
我想就是它的问题
是DO UNTIL EOF()里面的语句错误，报错，调试报错是什么？？？？？？？