[已解决]Raise 方法与Error 语句等效吗？

爱疯

1. 
   
2. Sub a()
   
3.     Err.Raise 7
   
4. End Sub
   
5. 
   
6. Sub b()
   
7.     Error 7
   
8. End Sub

复制代码

虽然从结果看一样，但不知道实际上它们是否等效？
请问如题，谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-31 13:30

Raise和Error都能模拟错误的发生，引起Err对象的变化（Number变化）。

用Raise发生错误，用户可以自定义一个号码作为错误编号传递给Err对象。
Error只能模拟系统中已经定义好的错误的发生。而自定义错误号是系统内没有的，所以当Error一个系统中没有定义的错误号时，这句句子本身就发生了错误，而并非是这句句子模拟错误的发生。

跳转到最佳答案楼层

amulee

error 只能产生系统已经存在的错误。
raise可以自定义错误号
你改变一下数字看看

1. Sub a()
   
2.     On Error Resume Next
   
3.     Err.Raise vbObjectError + 123
   
4.     Debug.Print Err.Number
   
5. End Sub
   
6. 
   
7. Sub b()
   
8.     On Error Resume Next
   
9.     Error vbObjectError + 123
   
10.     Debug.Print Err.Number
    
11. End Sub

复制代码

爱疯

谢谢阿木！

vbObjectError的含义是啥？

msgbox vbObjectError    '返回-2147221504

所以vbObjectError表示一个常量，对么？

amulee

Number 必需的。Long整数，识别错误性质。Visual Basic 错误（既有 Visual Basic 定义的错误也有用户定义的错误）的范围在 0–65535 之间。从 0–512 的范围保留为系统错误；从 513–65535 的范围可以用做用户定义的错误。当在类模块中将 Number 属性设置成自己的错误代码时，可将错误代码号添加到 vbObjectError 常数上。例如，为了产生错误号 513，可将 vbObjectError + 513 赋值到 Number 属性。

爱疯

1. 
   
2. Sub a()
   
3.     On Error Resume Next
   
4.     Err.Raise vbObjectError + 1
   
5.     Debug.Print Err.Number    '返回-2147221503
   
6. End Sub
   
7. 
   
8. Sub b()
   
9.     On Error Resume Next
   
10.     Error vbObjectError + 1
    
11.     Debug.Print Err.Number    '返回5
    
12. End Sub
    
13. 
    
14. Sub c()
    
15.     Debug.Print vbObjectError    '返回-2147221504
    
16. End Sub

复制代码

对于过程a，error语句的帮助：“如果不存在错误处理程序，或未做任何启动动作，那么就会由 Err 对象属性发布一个错误信息并将错误信息显示出来。”是不是说，不存在错误号"-2147221503"。所以过程a只是将错误信息显示出来

对于过程b，为什么返回5呢？

还是没明白{:09:}

csmctjg

一起来学习！

amulee

Raise和Error都能模拟错误的发生，引起Err对象的变化（Number变化）。

用Raise发生错误，用户可以自定义一个号码作为错误编号传递给Err对象。
Error只能模拟系统中已经定义好的错误的发生。而自定义错误号是系统内没有的，所以当Error一个系统中没有定义的错误号时，这句句子本身就发生了错误，而并非是这句句子模拟错误的发生。

爱疯

学习7楼{:25:}

xdwy81129

比较深奥，看看帖子学习学习