Freetutes.com

VB6 beginners tutorial - Learn VB6

Advanced VB6 tutorial - Learn Advanced VB6

VB .NET - Learn Visual Basic .NET

Systems Analysis - System analysis and Design tutorial for Software Engineering

Browse Topics

- Getting started
- Data Types
- Modules
- Operators in VB6
- VB6 Variable
- VB6 Procedures
- VB6 Control Structures
- Loops in VB6
- VB6 Exit Do & With End With
- Arrays in VB6
- User-Defined Data Types
- VB6 Constants
-
VB6 Built-in Functions
- Date and Time in VB6
- VB6 Controls
- TextBox Control
- ComboBox & OptionButton
- Label & Frame
- PictureBox & ImageBox
- Timer Control
- ListBox & ComboBox
- VB6 ScrollBar
- Control Arrays in VB6
- Files controls in VB6
- VB6 CheckBox
- Forms in VB6
- Menus in VB6
- MDI Form in VB6
- InputBox
- MessageBox
- Mouse events
- Mouse Move
- Error Handling
-
Error Handling (2)
-
VB6 Database

 

You are here: Visual Basic > VB6 (Beginners Tutorial)

Previous Page | Table of Contents | Next Page

MessageBox Function in Visual Basic 6 (VB6)

Displays a message in a dialog box and wait for the user to click a button, and returns an integer indicating which button the user clicked.

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

* Open a new Project and save the Form as messageboxdemo.frm and save the Project as messageboxdemo.vbp

* 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 )


  

Previous Page | Table of Contents | Next Page

   

Home | Link to Us | About Us | Privacy Policy | Contact Us

Copyright © Freetutes.com | All Rights Reserved