David, if you want to do it with with Win32::GUI here is how:
# Confirm data delete with user.
$question = "Delete Live Data Item(s) Checked";
$ans=Win32::GUI::MessageBox($W,$question,"Destructive Database
Delete",36,);
# 6=yes, 7=no
if ($ans == 7) {return;}
else {...code to delete data...}
Eric Hansen
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Rob Rogers
Sent: Friday, February 18, 2000 8:39 AM
To: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui] A few Simple Questions about Win32::GUI
David Hiltz wrote:
>
> > #3 How do I create a simple yes/no dialog box with an info icon, or a
> > warning icon? That was very easy in Tk. I know Win32::GUI has a
DialogBox
> > creation method, what flags need to go to the style tag to get a dialog
like
> > that?
>
> I don't know if there is a style for that (maybe), but you can always
> create your own yes/no dialog box and add a bitmap.
Were you looking for a Message Box? If so try Win32::MsgBox. (It's in
the base Win32 package not in Win32::GUI) It's used as
"Win32::MsgBox(MESSAGE [, FLAGS [, TITLE]])"
All of the following info can be found in the Win32::MsgBox docs.
The options for Flags are:
0 = OK
1 = OK and Cancel
2 = Abort, Retry, and Ignore
3 = Yes, No and Cancel
4 = Yes and No
5 = Retry and Cancel
MB_ICONSTOP "X" in a red circle
MB_ICONQUESTION question mark in a bubble
MB_ICONEXCLAMATION exclamation mark in a yellow triangle
MB_ICONINFORMATION "i" in a bubble
So, for a yes/no box with an info icon you'd use:
$message = Win32::MsgBox("Press either yes or no", 4 |
MB_ICONINFORMATION, "Error");
Then you check the $message variable for the return code.
The function returns the menu id of the selected push button:
0 Error
1 OK
2 Cancel
3 Abort
4 Retry
5 Ignore
6 Yes
7 No
