bug in messagedlg
Posted: Tue Jun 26, 2007 9:38 pm
I think there is a bug messagedlg.
I get an error as you can see below.
[code]`error,18 line:11 function or variable MBYESNO does not exits
``close example of a form
object myform as form
caption="close me"
onclose=FormClose
end object
DIM X as string
myform.ShowModal
sub FormClose(action as integer)
X=messagedlg("do you really want to exit the program?","close?",mbyesno+mbIconQuestion)
if X=idYes then
action=2
else
action=0
end if
end sub[/code]
I get an error as you can see below.
[code]`error,18 line:11 function or variable MBYESNO does not exits
``close example of a form
object myform as form
caption="close me"
onclose=FormClose
end object
DIM X as string
myform.ShowModal
sub FormClose(action as integer)
X=messagedlg("do you really want to exit the program?","close?",mbyesno+mbIconQuestion)
if X=idYes then
action=2
else
action=0
end if
end sub[/code]