Following is an expanded MessageBox
Syntax : MsgBox ( Prompt [,icons+buttons ] [,title ] )
memory_variable = MsgBox ( prompt [, icons+ buttons] [,title] )
Prompt : String expressions displayed as the message in the dialog box. If prompt consist of more than one line, you can separate the lines using the vbrCrLf constant.
Icons + Buttons : Numeric expression that is the sum of values specifying the number and type of buttons and icon to display.
Title : String expression displayed in the title bar of the dialog box. If you omit title, the application name is placed in the title bar.
Icons:
Constant
|
Value
|
Description
|
| vbCritical |
16
| Display Critical message icon |
| vbQuestion |
32
| Display Warning Query icon |
| vbExclamation |
48
| Display Warning message icon |
| vbInformation |
64
| Display information icon |
Buttons:
Constant
|
Value
|
Description
|
| vbOkOnly |
0
| Display OK button only |
| vbOkCancel |
1
| Display OK and Cancel buttons |
| vbAbortRetryIgnore |
2
| Display Abort, Retry and Ignore buttons |
| vbYesNoCancel |
3
| Display Yes, No and Cancel buttons |
| vbYesNo |
4
| Display Yes and No buttons |
| vbRetryCancel |
5
| Display Retry and Cancel buttons |
Return Values
Constant
|
Value
|
Description
|
| vbOk |
1
| Ok Button |
| vbCancel |
2
| Cancel Button |
| vbAbort |
3
| Abort Button |
| vbRetry |
4
| Retry Button |
| vbIgnore |
5
| Ignore Button |
| vbYes |
6
| Yes Button |
| vbNo |
7
| No Button |
Following is an example illustrates the use of message boxes
Design the application as shown below.
Object
|
Property
|
Setting
|
Form
|
Caption
Name
|
MessageBoxDemo
frmMessageBoxDemo
|
Label
|
Caption
Name
|
lblName
Name
|
TextBox
|
Name
Text
|
txtName
( empty )
|
| ListBox | Name | lstName |
CommandButton
|
Caption
Name
|
Add
cmdAdd
|
CommandButton
|
Caption
Name
|
Delete
cmdDelete
|
CommandButton
|
Caption
Name
|
Exit
cmdExit
|
Following code is entered in the txtName_Change ( ) event
Private Sub txtName_Change() If Len(txtName.Text) > 0 Then cmdAdd.Enabled = True End If End Sub
Following code has to be entered in the cmdAdd_Click ( ) event
Private Sub cmdAdd_Click() answer = MsgBox("Do you want to add this name to the list box?", vbExclamation + vbYesNo, "Add Confirm") If answer = vbYes Then lstName.AddItem txtName.Text txtName.Text = "" txtName.SetFocus cmdAdd.Enabled = False End If End Sub
Following code is entered in the cmdDelete_Click ( ) event Private Sub cmdDelete_Click() Dim remove As Integer remove = lstName.ListIndex If remove < 0 Then MsgBox "No names is selected", vbInformation, "Error" Else answer = MsgBox("Are you sure you want to delete " & vbCrLf & "the selected name?",_ vbCritical + vbYesNo, "Warning") If answer = vbYes Then If remove >= 0 Then lstName.RemoveItem remove txtName.SetFocus MsgBox "Selected name was deleted", vbInformation, "Delete Confirm" End If End If End If End Sub Following code is entered in the cmdExit_Click ( ) event Private Sub cmdExit_Click() answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Confirm") If answer = vbYes Then End Else MsgBox "Action canceled", vbInformation, "Confirm" End If End Sub
Save and run the application. You can notice the different type of message box types are used to perform an action
( Download the source code )