messagebox question

[misulica]

MESSAGEBOX("You choose ?thisform.spinner1.value? objects", 4+48, "ATTENTION&quot

What I must place instead of ? to obtain the number selected from spinner?

 

[Mike Gagnon]

misulica

If You are using VFP7.0 the INPUTBOX() would help you, otherwise in VFP6.0 you can on return the results of pressing on the buttons at the bottom of the messagebox. Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[misulica]

Yes, I'm using VFP7.
I want to display something like:
You choose 5 objects

 

[MadTown]

Misulica,

try

MESSAGEBOX("You choose " + STR(thisform.spinner1.value) +  " objects", 4+48, "ATTENTION")

 

[Mike Gagnon]

misulica

Sorry I misunderstood the question. MadTown has a suggestion for you. You may have to ALLTRIM also your spinner value, or you'll ened up with a few extra spaces. Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[misulica]

It works, one little problem.The message displayed is:
You choose 5objects

 

[Mike Gagnon]

misulica

Did you use ALLTRIM as I suggest?

MESSAGEBOX("You choose " + ALLTRIM(STR(thisform.spinner1.value)) + " objects", 4+48, "ATTENTION&quot
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[MadTown]

MESSAGEBOX("You choose " + ALLTRIM(STR(thisform.spinner1.value)) +  " objects", 4+48, "ATTENTION")

also make sure there is a space between " and the o in objecs

 

[misulica]

Works fine.I'm ashamed, but I have another question:
The message box have 2 buttons: Yes + No
What kind of code do I give to each button to perform what they display:
Yes - then go on (I agree with those 5 objects)
No - then stop and return to form to select another number from the spinner

 

[Mike Gagnon]

LOCAL lnReturn
lnReturn=MESSAGEBOX("You choose " + ALLTRIM(STR(thisform.spinner1.value)) + " objects", 4+48, "ATTENTION&quot

if lnReturn = 6 &&(The user pressed yes)
&& Do something
else
&& Do something else
endif



Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[misulica]

Thank you all

 

[MadTown]

Misulica,
The MessageBox returns a value that corresponds to which button was pushed

So write it like

IF MessageBox(("You choose " + ALLTRIM(STR(thisform.spinner1.value))
 +  " objects", 4+48, "ATTENTION") = 6
   *** user pressed yes ***
ELSE
   *** user pressed no
ENDIF

 

[Mike Gagnon]

MadTown

IF MessageBox(("You choose " + ALLTRIM(STR(thisform.spinner1.value))
+ " objects", 4+48, "ATTENTION&quot = 6
*** user pressed yes ***
ELSE
*** user pressed no
ENDIF

This causes an error, have you tested it, before posting it?
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[MadTown]

Mike, What kind of error? I get no error when running this. Could it be due to the command wrapping to the next line?

 

[Mike Gagnon]

MadTown

IF MessageBox(("You choose " + ALLTRIM(STR(thisform.spinner1.value))+ " objects", 4+48, "ATTENTION") = 6

Count the blue brackets and the red. One too many blues. Take the first blue one out. If you copy the whole above line, one one single line and compile. Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[rgbean]

Mike, Madtown,
I believe there is an extra "(" and of course you may need a ";" based on the formatting:

IF MessageBox("You choose " + ALLTRIM(STR(thisform.spinner1.value)) ;
 +  " objects", 4+48, "ATTENTION") = 6
   *** user pressed yes ***
ELSE
   *** user pressed no
ENDIF

Rick

 

[MadTown]

Mike and Rick, thanks for clarifying for me.

Ken

 

[rgbean]

You're welcome - it's obvious Mike can type faster than I can!

Rick

 

[Mike Gagnon]

Rick

You're welcome - it's obvious Mike can type faster than I can!

And in color with that!!
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.