运行时错误处理

程序中存在的错误,我们希望程序不要崩溃,还能继续运行,这时候就需要错误处理。

VB有一个全局类Err,专门针对错误处理的类,有如下常用的属性和方法。

属性\方法

说明

Number

用于标识该错误的专用号码

Source

当前VB项目的名字

Description

表义性的错误消息。如果某个错误没有这个字符串,本属性就会指明应用程序定义的错误或对象定义的错误

Clear

清除Err对象的属性

Raise

运行时生成错误

 

示例程序

Private Sub Command1_Click()

On Error GoTo War

Text3.Text = Text1.Text / Text2.Text

War:

If Err.Number = 13 Then

MsgBox “数据类型错误”, vbOKOnly, “错误提示”

Err.Clear

Exit Sub

End If

If Err.Number = 11 Then

MsgBox “除数不能为0!”, vbOKOnly, “错误提示”

Err.Clear

Exit Sub

End If

End Sub