MsgBox question

[GaryVass]

I have a MsgBox requestor (below) that I can't get to work... it does work in kbasic....

response = MsgBox("No security found in Master Security List with a ticker of " & TTICK & " Would you like to add it now?", kbYesNo, "Should We Add This Asset to the List?")

With the above line I get a 'parser or syntax error' If I change the kbYesNo to vbYesNo I get a 'types incompatible error' response is dimmed as Integer. I have also tried Boolean to see if there were any differences (none).

What do I need to change?

Thanks in advance.

[Slowdown]

pulled from the examples and changed a bit,

Code: Select all

Sub ShowMsgBox()
  Dim ReturnValue As Integer

  ReturnValue = MessageBox(MessageBox.Warning, "This is a Warning", "My warning text", "informative text", "details and more...", MessageBox.Apply, List("VB_Yes", MessageBox.AcceptRole), List("VB_No", MessageBox.RejectRole))

  Print "When Accepted : " & MessageBox.AcceptRole & "\n"
  Print "When Applied  : " & MessageBox.Apply & "\n"
  Print "When rejected : " & MessageBox.RejectRole & "\n"
  Print "Returned by MessageBox : " & ReturnValue
End Sub

[GaryVass]

Thanks... I did not see those in the examples.... I guess you have to spell out messagebox as opposed to just the MsgBox that works for just simple messages.

[berndnoetscher]

It works, but change:

kbYesNo must be vbYesNo

[Slowdown]

Sorry to report but,

Code: Select all

Dim ReturnValue As Integer

ReturnValue = MsgBox("some text", vbYesNo, "some more text")

Raises an error types incompatible.
edit;

It will work but not as showed.
This will work,

Code: Select all

Dim ReturnValue As List
ReturnValue.Append(MsgBox("some text", vbYesNo, "some more text"))
MsgBox(ReturnValue.Object(0))

Seems the function returns not an Integer but an Array

[Henning]

Hi,

What comes to mind is that MsgBox should, in this case, return the Value of the Constant for either vbYes or vbNo.
So one couls code:

If MsgBox("tatata", vbYesNo, "dididi") = vbYes Then
....
Else
....
End If

/Henning

[Slowdown]

sorry Henning, no go same error.

[Henning]

Hi,

Not a valid program code, just a hint on how it, in my mind, is supposed to work.

/Henning

[GaryVass]

Thanks Slowdown,

I used your answer to get a working set of code, as a list, of course, but it works or at least compiles so far.

[Slowdown]

Be carefull,
If it's a bug and when repaired you will end up again with a none working code.
I don't know if my code is correct, it works but that is all.