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 

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: