杭州交通信息网海口市ppp:vb简单问题?
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 12:20:09
If Err.Number = 0 Then
Dim strTxt As String
Text1.Text = ""
While Not EOF(1)
Input #1, strTxt
Text1.Text = Text1.Text + strTxt + vbCrLf
Wend
Close #1
End If
这里的Err.Number = 0是什么意思呀?还有Text1.Text = Text1.Text + strTxt + vbCrLf中的vbcrlf又是什么意思呀?
Dim strTxt As String
Text1.Text = ""
While Not EOF(1)
Input #1, strTxt
Text1.Text = Text1.Text + strTxt + vbCrLf
Wend
Close #1
End If
这里的Err.Number = 0是什么意思呀?还有Text1.Text = Text1.Text + strTxt + vbCrLf中的vbcrlf又是什么意思呀?
...
On Error Goto Conan
...
Conan:
...
End Sub
err.number是错误中断编号。是程序发生错误时，产生的提示值。
列如溢出的err.number=...，...
vbCrLf就是回车换行的意思。
Text1.Text = Text1.Text + strTxt + vbCrLf
等同于：
Text1.Text = Text1.Text + Chr(10) + Chr(13)+ strTxt
Cr 表示回车（ASCII 10）
Lf 表示换行（ASCII 13）
vbCrLf 其实是 vbCr 和 vbLf 的连接。表示一个完整的回车换行符
每一个错误都有一个编号，这个err.number就是编号，如果想知道他是什么错误，看err.description就可以了
以上。
路过的老狼
他说的VERY GOOD.那个E rr.number好象是个错误的代码，用于拦截错误的。这个不是太好懂，得借助一些书籍。