Re: [perl-win32-gui] YES/NO Window

[David Hiltz]

  I didn't get a YES and NO button when I ran this, just
  an OK button.

> you're looking for a Win32::GUI::MessageBox.
> 
>     sub Submit_Click {
>         # Do some stuff here
> 
>         # Do some fancy stuff...
>         # Ooops, an error, ask a yes no question.
> 
>         $answer = Win32::GUI::MessageBox(
>             $question_text,
>             "ERROR",
>             MB_ICONQUESTION | MB_YESNO,
>         );
>         if($answer == 6) {
>             # yes
>         } else {
>             # no
>         }
>     }
>         
> cheers,
> Aldo
> 
> 
> 
>