Question

求一段VB6.0代码，在运行中如果出错，则发出提示

Answer 1

Private Sub XXXXX'（这个就是你自己的Sub的开头）
On error goto Err:

'(这里是这个Sub的内容)

Exit Sub
Err:
Msgbox("程序出现了错误！",vbokonly,"警告"). '根据程序需要编写引号内内容
End Sub

Answer 2

'修改下
Private Sub Command1_Click()
On Error GoTo err
。。。。
exet sub
err:

Select Case err.Number
case 1
msgbox "错误1"
case 2
msgbox "错误2"
caseelse
err.Description
end Select
end sub