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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


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
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date