vb如何捕捉错误的行号

[罗简单]

VB中有很多的过程，打包后在别人电脑上运行，出现了错误，但是在我电脑上运行又没有问题，我不知道问题出现在什么地方，就想在VB中有没有什么方法能够在运行错误的时候返回一个在那一行出现的错误（或者在那个过程中的什么位置发生了错误）

[dbcontrols]

我这里有，随口一说是不负责任的

[Quote=引用 15 楼 pctgl 的回复:]
在你们那里编译后真的没有行号？ 或者是随口一说?
[/Quote]

[xiaoohoo]

[Quote=引用 14 楼 xiaoohoo 的回复:]

我就事论事：
3楼说的没错

第一句：不是在IDE环境而在exe之下是不可能有行号的.

捕捉行号编译后无效。

[/Quote]


不好意思，之前说的不对！
由于代码里用的是 Debug.Print ，生成EXE被删除，所以我就以为没有这功能了！
实际上是有错误行功能的！

我用的CODESMART，之前我一直是调试时增加行号，调试完毕又删除掉。
还没发现，生成EXE也可以用行号。这功能好！

[神马都能聊]

vb6并不提倡使用Erl所以它是隐藏的且VB6MSDN中无说明。

'-----------------------------------------------

MSDN当中有的，示例程序也包含了这个东西，不过这个东西很古老了。

[caiyanyan27]

参考PDFReader源代码

[zfl2k]

学习了行号

[chinaboyzyq]

[Quote=引用 21 楼 aisac 的回复:]

vb6并不提倡使用Erl所以它是隐藏的且VB6MSDN中无说明。

'-----------------------------------------------

MSDN当中有的，示例程序也包含了这个东西，不过这个东西很古老了。
[/Quote]
那是vba是示例，并不是vb6的示例。

[zhaozidong86]

[Quote=引用 9 楼 homer3382 的回复:]
用VB外接程序vb6 MZ-TOOLS加行号，并用err.number和erl
[/Quote]
+1

[神马都能聊]

[Quote=引用 24 楼 chinaboyzyq 的回复:]
引用 21 楼 aisac 的回复:

vb6并不提倡使用Erl所以它是隐藏的且VB6MSDN中无说明。

'-----------------------------------------------

MSDN当中有的，示例程序也包含了这个东西，不过这个东西很古老了。

那是vba是示例，并不是vb6的示例。
[/Quote]
如果非要这么划分的话，那就该说Erl宏是从Basic延续过来的了，然后………………

[dbcontrols]

这等于狠狠地抽了#3楼一记耳光.

[Quote=引用 4 楼 pctgl 的回复:]
有这功能


VB code


Private Sub Command1_Click()


100 On Error GoTo 600
200 Dim a As Long, b As Long
300 a = 100
400 b = a \ 0
500
600 MsgBox "出错行号: " & Erl
700
800
900
100……
[/Quote]

[zzhgb]

说话有点狠了，小心在论坛里吵架
[Quote=引用 7 楼 dbcontrols 的回复:]
这等于狠狠地抽了#3楼一记耳光.


引用 4 楼 pctgl 的回复:
有这功能


VB code


Private Sub Command1_Click()


100 On Error GoTo 600
200 Dim a As Long, b As Long
300 a = 100
400 b = a \ 0
500
600 MsgBox "出错行号……
[/Quote]

[homer3382]

用VB外接程序vb6 MZ-TOOLS加行号，并用err.number和erl

[GodSeventh007]

我测试一看，怎么在不显示错误行，显示的就是“出错行号：”后面的行号就没了
[Quote=引用 4 楼 pctgl 的回复:]

VB code


Private Sub Command1_Click()


100 On Error GoTo 600
200 Dim a As Long, b As Long
300 a = 100
400 b = a \ 0
500
600 MsgBox "出错行号: " & Erl
700
800
900
100……
[/Quote]

[dbcontrols]

被死王八咬住了不撒口,俺也没办法

[Quote=引用 8 楼 zzhgb 的回复:]
说话有点狠了，小心在论坛里吵架

引用 7 楼 dbcontrols 的回复:
这等于狠狠地抽了#3楼一记耳光.


引用 4 楼 pctgl 的回复:
有这功能


VB code


Private Sub Command1_Click()


100 On Error GoTo 600
200 Dim a As Long, b As Long
300 a ……
[/Quote]

[赵4老师]

参考PDFReader源代码

[hpygzhx520]

写了那么多年程序，还不知道有这个方法。惭愧

[xiaoohoo]

我就事论事：
3楼说的没错

第一句：不是在IDE环境而在exe之下是不可能有行号的.

捕捉行号编译后无效。



dbcontrols ：
大家各退一步算啦。也不要让其它版块的人看笑话。

[PctGL]

在你们那里编译后真的没有行号？ 或者是随口一说?

[嗷嗷叫的老马]

我是来学习的......

[chinaboyzyq]

[Quote=引用 26 楼 aisac 的回复:]

那是vba是示例，并不是vb6的示例。

如果非要这么划分的话，那就该说Erl宏是从Basic延续过来的了，然后………………
[/Quote]
我这么说，只是强调vb6中不再提倡使用Erl（而是使用Err)并不说明Erl是从哪来的。
在模块化结构化编程中是很少会有人去使用行号的。

[PctGL]

狗带嚼子!