Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Jan 3, 2001

A Powerful and Simple Message Box Statement


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 
Andreas Hillqvist
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap