Needs help in VB6

[JohnHACK]

Hi all, can anyone tell me how to use msgbox in vb 6

I mean, let say


msgbox "Do you want to continue?", vbYesNo, "My Program"

- How to use VbYesNo? How to write a program for this?
- what is the value will returned by Yes or No


help me.... or give me simple example......

[Abtronic]

Hey there.

Heres a quick easy example;

Dim a As Integer

'we will start with a simple msgbox that has two choices: yes and no

a = MsgBox("Do you like rice?", vbYesNo,"Rice")

'now we check what the user selected with an if statement. Although we could use numerical values, vb constants are much easier; vbyes, vbno, vbcancel etc. Press F2 to open the object browser in vb where you can find a full list.

If a = vbYes Then
'yes stuff
Else
'no stuff
End If

If you need further help, just specify what you need

Edit -- Im bored, so i might add some stuff you'd find useful;
Heres exactly what the above does.
Firstly, we set aside some memory space for a variable called 'a' -- can be anything you want. vbYesNo and all its variants convert to whole numbers, so i am Dim'ing it as Integer.
Then comes the msgbox. In front of it i put a =, which will set the users choice (vbYes or vbNo in this case) to the variable we set in the previous step. The rest is self explanitory; MsgBox(text, buttons, title).
After the user has selected an option, we pass it through an If statement to determine what they selected. As i mentioned, you can use the proper numerical values (below), or you can just use the visual basic constant for 'yes'; vbYes.

Here is a list of constants/values associated with the MsgBox in Visual Basic.
Event -- Constant -- Numerical Value
User clicks 'yes' -- vbYes -- 6
User clicks 'no' -- vbNo -- 7
User clicks 'OK' -- vbOK -- 1
User clicks 'Cancel' -- vbCancel -- 2
User clicks 'Abort' -- vbAbort -- 3
User clicks 'retry' -- vbRetry -- 4
User clicks 'ignore' -- vbIgnore -- 5

To get these buttons to appear on your message box, use any of the following in the 'Buttons' field [ MsgBox(text, buttons, title) ]
Constant -- Buttons Displayed
vbYesNo -- Yes, No
vbYesNoCancel -- Yes, No, Cancel
vbRetryCancel -- Retry, Cancel
vbOkCancel -- OK, Cancel
vbOkOnly [default] -- OK
vbAbortRetryIgnore -- Abort, Retry, Ignore

If you want to be adventurous, try adding an icon to the messagebox. to do this, is the following format: MsgBox(text, icon + button, title). Example - MsgBox("**** off", vbCritical + vbAbortRetryIgnore, "hello")
Icon Constant -- Icon Displayed/Effects
vbCritical -- Windows critical icon, critical beep sounds
vbQuestion -- Windows question mark icon, question beep sounds
vbExclamation -- Exclamation mark, beep sounds
vbInformation -- 'i' Information icon, info beep sounds

well, that was fun. as i said above, any questions just ask

[jetherson]

sometimes i use msgbox just for debugging

you can use this in a very simplistic form:

msgbox "any text here"

or

msgbox any_variable_here


=====


but for your question, this might work:

if msgbox("Do you want to continue?", vbYesNo, "My Program") = vbYes then
msgbox "you chose YES" 'put the code for 'yes'
else
msgbox "you chose NO" 'put the code for 'no'
endif

[Abtronic]

On a side note, dont forget Debug.* is there for debug purposes as well, saves time/memory/effort in comparison to MsgBox, and doesnt affect the actual program.

For x = 0 to lstResults.listcount - 1
Debug.Print "x = " & x
Debug.Print "Corresponds to the following item on lstResults: " & lstResults.List(x)
Next x

etc etc. It puts the .Print'ed text into the tiny debug screen at the bottom when you run the program through VB.

[mark_boyle2002]

go to www.planetsourcecode.com

You will get tonnes of examples to faf arround with.

[MadBeaver]

Here are some other good VB Code sites
http://www.freevbcode.com/
http://www.vbcode.com/