On Error Goto 难道有次数限制?

appow 2006-08-21 08:22:28
on Error goto 放在for循环里的情况,假设处理1每次循环时都会发生错误,程序应执行处理2。
但只有第一次循环能捕捉到错误并且执行处理2,第二次就捕捉不到了。
莫非有次数限制?

Private Function ActivityGen()
For to
On Error Goto NextStep
处理1
......

NextStep:
处理2
.....

Next

End Function
...全文
1151 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
晓马过河 2006-09-09
  • 打赏
  • 举报
回复
mark
appow 2006-08-22
  • 打赏
  • 举报
回复
谢各位

if Err.Number<>0 then

end if

这个好用
benyfeifei 2006-08-22
  • 打赏
  • 举报
回复
晕,你的逻辑不适合使用On Error Goto模式的,我已经给了你一种解决方案了。
iland9876543210 2006-08-22
  • 打赏
  • 举报
回复
顶你
appow 2006-08-22
  • 打赏
  • 举报
回复
各位仁兄

还是差一点啊。在如下的例子中
Private Function ActivityGen()
For to
On Error Goto NextStep
处理1
......
xxxxxxxxxxxxxxxxx

NextStep:
处理2
.....

Next
End Function

之所以把On Error Goto NextStep和NextStep:放在for循环内部,是因为想在出错时,跳过xxxxxxxxxxxxxxxxx部分,可是用了resume next之后,xxxxxxxxxxxxxxxxx还会照样执行。
这不是我想要的。
benyfeifei 2006-08-22
  • 打赏
  • 举报
回复
pigsanddogs说得很清楚了,On Error Goto语句不适合你的逻辑。

如果你不想修改的话,可以使用Err对象

Private Function ActivityGen()
For to
if Err.Number<>0 then
Err.Clear

处理2
.....
Else
处理1
......
End if


Next

End Function
appow 2006-08-22
  • 打赏
  • 举报
回复
TO pigsanddogs(我爱吃猪肉,但是长不胖,为什么??)

不好意思,试了一下,果然好用。

小问题给想复杂了,不过深入学了习VB的错误处理方面的知识。

感谢各位,给分。
appow 2006-08-22
  • 打赏
  • 举报
回复
TO pigsanddogs(我爱吃猪肉,但是长不胖,为什么??)
道理讲得很清楚,谢!

只是你把我的程序逻辑改了,解决不了任何问题.

首贴麻烦再看一下啊
YaDa 2006-08-22
  • 打赏
  • 举报
回复
试了一下resume next,very good!
pigsanddogs 2006-08-21
  • 打赏
  • 举报
回复
错误陷阱打开了enable了, 才可以捕获陷阱.
可能有点没说明白:
为什么active中(错误处理列程中)不能在同一个过程中再次捕获陷阱.
由于错误捕获函数是系统调用fs:[0]的, 所以在错误例程中,
也就是fs:[0]这个函数中, 也就是你On Error goto xxx的那个xxx开始的地址中
如果产生了错误, 系统是不可以再去调用fs:[0]的, 因为这就形成了递归死循环.
所以没有Resume的时候,即没从那个函数ret到系统中去的话, 是不可以再次重入这个函数的
系统的解决方案是继续搜索seh联.
seh是一个连表的形式保留. 前4个字节表示上一个连的seh地址.
也就是上层call设置的seh连. 这就是为什么在active的时候, 系统会搜索上层调用
设置的on error goto..陷阱了.
pigsanddogs 2006-08-21
  • 打赏
  • 举报
回复
windows采用seh机制捕获错误.
struct exception handler 提供一套从异常运行恢复的机制.
cpu一旦产生一个异常,则会通知系统, 系统调用fs:[0]处理函数,然后根据函数
返回值, 来确定是被处理(可以在处理函数中改变content的eip的值), 还是继续搜索下一个
seh链,或者产生一个unhandler exception. 理解这段话系统的调用过程,
对你理解vb中on error很有帮助

映射到vb中, 则是on error错误陷阱处理.
vb中提供了3个声明来设置错误陷阱.
On Error GoTo line '如果错误产生, 则跳转到某行,或者标号执行
On Error Resume Next '如果错误产生, 则继续下一条语句
On Error GoTo 0 '清除当前设置的错误陷阱
一个声明来处理陷阱.
Resume '执行完错误例程, 跳转到字程序.

msdn:
在一个过程中可设置多个陷阱, 但只有最后一个设置覆盖前面的,并且"enable"的.
同时, 在任何一个过程中, 错误存在两种情况, 一种是active, 表示正在
处理错误中, 另外一种是没有产生错误.

Resume (可跟2个参数, next表示继续出错后的下一条语句, 或一个标号返回到指定标号)
只能在错误active的时候运行.
On Error GoTo 0 清楚错误陷阱, 那么就没有任何陷阱是enable了, 那么产生错误就捕捉不到了

在同一个过程中
满足错误捕获必须满足2个条件. 一个是有错误陷阱是enable, 同时错误状态不是active.
这样的目的是防止错误捕捉死循环.

很明显进入enable的条件是设置错误陷阱
On Error Resume Next
On Error GoTo line
退出enable的条件是退出了过程, 或者执行了 On error goto 0

进入active的过程是产生了错误.
退出active的过程是执行了Resume

错误其实是一个子代码段调用. 由On Error Goto..进入, resume返回(可指定返回地址)
在调用中, active是true的.
On Error Resume Next 是On Error Goto xxx + Resume Next的一个特例,
表示产生了一个空的字代码调用. 所以active始终是false的.

如果系统发现当前过程的错误是active的, 或者当前过程没enable错误陷阱, 则会从
call stack中向上展开寻找, 如果找不到可处理的错误陷阱, 则调用vb默认的错误
陷阱, 即弹一个runtime错误的对话框, 然后退出程序.

OK, 回到你这个例子
你在循环中设置错误陷阱, 那么每次循环都会设置这个错误陷阱.
按照前面的说明, 那么会存在错误覆盖, 所以不需要这么写. 改成如下

Private Sub Command1_Click()
On Error GoTo NextStep
Dim i As Long
Dim b As Long
Dim c As Long
c = 5
For i = 1 To 10
..............

你并不需要让错误陷阱disable, 所以不需要执行
On Error Goto 0 '关闭错误处理, 这句删除.

on Error goto NextStep
这是一个错误处理例程, 所以你需要resume掉, 以便让active为false,以便在该过程中
能继续处理错误, 由于是例程子调用, 所以需要把这个NextStep写在函数的最后,
由于你不需要做任何处理, 仅仅是会到写一条语句, 所以可以这么
NextStep:
Resume next

完整代码如下:

Private Sub Command1_Click()
Dim i As Long
Dim b As Long
Dim c As Long
On Error GoTo NextStep
c = 5
For i = 1 To 10

c = c / b

c = 5
Next
exit sub

NextStep:
resume next
End Sub

这就是最标准的写法
同样,由于你的NextStep子处理列程不做任何事, 可以简写成On Error Resume Next
最终修改代码如下

Private Sub Command1_Click()
Dim i As Long
Dim b As Long
Dim c As Long
On Error resume next
c = 5
For i = 1 To 10

c = c / b

c = 5
Next
End Sub











hn123 2006-08-21
  • 打赏
  • 举报
回复
哈,恭喜. 接分
-----------
www.vicmiao.com
努力就有美好時光!
YaDa 2006-08-21
  • 打赏
  • 举报
回复
On Error GoTo 0 这句要写也应该写在NextStep:之后 ^v^.
from MSDN
如果在错误处理程序处于活动状态时(在发生错误和执行 Resume、Exit Sub、Exit Function 或 Exit Property 语句之间这段时间)又发生错误,则当前过程的错误处理程序将无法处理这个错误。
YaDa 2006-08-21
  • 打赏
  • 举报
回复
我试了一下,没有用。抱歉,想当然了.
Private Sub Command1_Click()
Dim i As Long
Dim b As Long
Dim c As Long
c = 5
For i = 1 To 10
On Error GoTo NextStep
c = c / b

On Error GoTo 0 '不管有没有此句,都是“除数为零”的错误
NextStep:
c = 5
Next
End Sub
YaDa 2006-08-21
  • 打赏
  • 举报
回复
Private Function ActivityGen()
For to
On Error Goto NextStep
处理1
......

On Error Goto 0 '关闭错误处理
NextStep:
处理2
.....

Next

End Function
boywang 2006-08-21
  • 打赏
  • 举报
回复
不可能吧,除非哪里改过了.
更新说明: 2017-02-04(yaya) Ls command: Empty Folder returns false. 2016-12-08(yaya) 修正lz4、vhd不显示解压缩进度指示。增加lzma解压缩进度指示。 2016-11-09(不点) 0x8205 bit 5 = 1: 使checkkey闲置循环停止指令。 2016-04-13(yaya) 支持动画菜单 setmenu --graphic-entry=类型=菜单行数=菜单列数=图形宽(像素)=图形高(像素)=菜单行间距(像素) 菜单项0的路径文件名 类型: 位0:高亮指定颜色 位1:高亮颜色翻转 位2:高亮显示线框 位7:背景透明(最好使用黑色背景) 文件名: *n.??? 格式 n=00-99 高亮颜色由 color HIGHLIGHT=0xrrggbb 指定。 字符可以使用任意字型、字高、颜色,可以辅以图标。 2016-03-25(yaya) 菜单字符可以使用不同字型。 例如:"七" 使用不同字型,将 .hex 文件中的 unicode 码 “4e03” 修改为 “0080”, 将菜单中的 "七" 修改为 “\X0080”。 2016-03-23(yaya) 增强 echo 函数功能。 例如:echo -e \x18 显示 UTF-8 字符 0x18。 echo -e \X2191 显示 unicode 字符 0x2191。 2016-03-15(yaya) 1.增加动画控制热键 F2:播放/停止。 2.增加动画控制位 0x835b,位0:0/1=停止/播放。 3.增加精简字库模式:--simp=起始0,终止0,...,起始3,终止3 中文可以使用 --simp= ,内置字库应当包含 DotSize=[font_h],['simp'] 例如:font --font-high=24 --simp= /24_24.hex DotSize=24,simp 不使用热键: 可以加载 32*32 unifont 全字库 使用热键: 可以加载 24*24 unifont 全字库 使用精简字库: 可以加载 46*46 汉字全字库 使用精简字库及热键:可以加载 40*40 汉字全字库 4.不再支持 bin 格式字库。 2016-03-03(yaya) 1.增加图像背景色设置方法。 splashimage --fill-color=[0xrrggbb] 作用之一,作为小图像的背景。 作用之二,直接作为菜单的背景(即不加载图像背景)。此时只设置字体的前景色即可。 2.增加动画菜单。 splashimage --animated=[type]=[delay]=[last_num]=[x]=[y] START_FILE 类型[type]:bit 0-3: 播放次数 bit 4: 永远重复 bit 7: 透明背景 type=00:禁止播放 播放n次:序列图像各显示n次,时间独占。可作为启动前导、序幕。 永远重复:序列图像无限循环,时间与菜单共享。可作为菜单里的动画。 背景透明:即抠像。要求4角像素为背景色。 背景色最好为白色或黑色,这样可以去除一些灰色杂波。若是彩色背景,则应当非常干净。 提醒:请以16进制方式输入。否则易错。 延迟[delay]:序列图像之间的延迟。单位是滴答,即1/18.2秒。 序列数[last_num]:序列图像总数(2位数,从1开始计数)。 偏移[x]、[y]:图像偏移,单位像素。 起始图像文件 START_FILE 命名规则:*n.??? n: 1-9 或 01-99 或 001-999。 3.增加固定图像的背景色可以透明。 splashimage [--offset=[type]=[x]=[y]] FILE 类型[type]:bit 7: 透明背景 2016-02-14(yaya) setmenu 函数增加菜单项目背景短/满参数(默认短) 2016-01-19(yaya) splashimage 函数增加图像起始偏移(默认0) 2015-08-20(yaya) 1.支持非

7,759

社区成员

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

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