首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

On Error GoTo的有关问题,

2012-03-17 
On Error GoTo的问题,在线等。VB中On Error GoTo的错误处理当执行语句执行吗?为什么下面两段代码总是弹出er

On Error GoTo的问题,在线等。
VB中On Error GoTo的错误处理当执行语句执行吗?为什么下面两段代码总是弹出error对话框呢?不是有错误才会进入err:里面去吗

Private Sub CommandButton1_Click()
On Error GoTo err
err:
  MsgBox "some error happened", vbCritical, "error"
End Sub

Private Sub CommandButton2_Click()
On Error GoTo err
dim str As String
str ="test"
MsgBox str
err:
  MsgBox "some error happened", vbCritical, "error"
End Sub

[解决办法]

VB code
Option ExplicitPrivate Sub CommandButton1_Click()On Error GoTo errDebug.Print 1 / 0Exit Suberr:  MsgBox "some error happened", vbCritical, "error"End SubPrivate Sub CommandButton2_Click()On Error GoTo errDim str As Stringstr = "test"MsgBox strDebug.Print 1 / 0Exit Suberr:  MsgBox "some error happened", vbCritical, "error"End Sub
[解决办法]
private sub subName()
on error goto errSub:

exit sub
errSub:

end sub
[解决办法]
errsub只是一个标签,程序会接着往下执行的,如不想执行需在前面加exit sub
[解决办法]
需加exit sub

热点排行