新人问个关于集中的错误处理程序的问题

我的错误处理程序如下：
Public Function HandleErrors()
Function HandleErrors(iErrNum) As Integer
Select Case IAction
Case 5
'Invalid procedure call
MsgBox Error(iErrNum) & "Contact Help Desk."
IAction = 2
Case 7
'Out of memory
MsgBox "Close all unnecessary applications."
IAction = 1
Case 11
'Division by zero
MsgBox "Zero is not a valid value."
IAction = 1
Case 48, 49, 51
'Error in loading DLL
MsgBox iErrNum & "Contact Help Desk"
IAction = 5
Case 57
'Device I/O error
MsgBox "Insert Disk in Drive A."
IAction = 1
Case Else
MsgBox "Unrecoverable Error."
IAction = 5
End Select
ErrorHandle = IAction
End Function

然后在这里面用
Private Sub ErrorExample()
Dim sngValue As Single, sngDivideBy As Single, sngAnswer As Single
Dim iResponse As Integer
On Error GoTo errorzone
sngValue = InputBox("Enter the number you wish to divide:")
sngDivideBy = InputBox("Enter the number you wish to divide by")
sngAnswer = sngValue / sngDivideBy
MsgBox "The answer is " & sngAnswer
Exit Sub
errorzone:
'This Select statement uses the value returned
'from the HandleErrors function for its condition.
Select Case HandleErrors(iErrNum)
Case 1
Resume
Case 2
Resume Next
'This procedure doesn't need case 3 which is resuming to a line
Case 4
Exit Sub
Case 5
End
End Select
End Sub

不感兴趣

开通SVIP免广告

结果提示有二义性的名称，请问是怎么回事，该怎么改？

有没大神来解答下啊

第一第二行不就重名了嘛

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

5回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六