Home » Tip Bank » C++ » Coding

Language: Visual Basic
Expertise: Intermediate

Jan 3, 2001

This tip can be used as a Select Case statement with a MsgBox statement. Because a variable is not used to hold the response, adding one or more handles for response is easy. The statement renders a simple overview of the function of the code. Here is an example:

  
        Select Case MsgBox("Error ocured:" + vbCrLf + vbCrLf + Err.Description, vbAbortRetryIgnore) 
        Case vbRetry 
                Resume 
        Case vbIgnore 
                Resume Next 
        Case vbAbort 
                Resume Main_Exit 
        Case Else 
                MsgBox "Unknown response." 
        End Select 

Compare this to the other style:

  
Dim lRespons As VbMsgBoxResult 
        lRespons = MsgBox("Error ocured:" + vbCrLf + vbCrLf + Err.Description, vbAbortRetryIgnore) 
        If lRespons = vbRetry Then 
                Resume 
        ElseIf lRespons = vbIgnore Then 
                Resume Next 
        ElseIf lRespons = vbAbort Then 
                Resume Main_Exit 
        Else 
                MsgBox "Unknown response." 
        End If