Brad,
I reewrote your code to NOT have a default button and the "Do it"
button is still a default???.
On Oct 1, 2006, at 7:52 PM, Brad Rhine wrote:
Dim M As MessageDialog
Dim B As MessageDialogButton
M=New MessageDialog
M.Title="Hey There"
M.Message="Hey There"
M.Explanation="Here is my lengthy explanation."
M.ActionButton.Default=false
M.ActionButton.Visible=True
M.ActionButton.Caption="Do It"
M.ActionButton.Visible=True
M.CancelButton.Default=false
M.CancelButton.Visible=True
M.CancelButton.Cancel=True
M.CancelButton.Caption="Cancel"
M.AlternateActionButton.Default=false
M.AlternateActionButton.Visible=True
M.AlternateActionButton.Caption="Don't Do It"
B=M.ShowModal
Select Case B
Case M.ActionButton
//The user clicked the "Do It" button
//Act accordingly
Case M.CancelButton
//The user clicked the "Cancel" button
//Act accordingly
Case M.AlternateActionButton
//The user clicked the "Don't Do It" button
//Act accordingly
End Select
On Oct 1, 2006, at 1:14 PM, Robert Poland wrote:
It appears that MessageDialog doesn't have a default button function.
I'm not sure what you mean by a "default button function," but
here's some sample code for the MessageDialog. The MessageDialog
below will have a default button ("Do It"), a cancel button
("Cancel"), and an alternate action button ("Don't Do It"). If this
doesn't answer your question, then I guess I'm not sure what you're
asking. ;)
Dim M As MessageDialog
Dim B As MessageDialogButton
M=New MessageDialog
M.Title="Hey There"
M.Message="Hey There"
M.Explanation="Here is my lengthy explanation."
M.ActionButton.Default=True
M.ActionButton.Caption="Do It"
M.ActionButton.Visible=True
M.CancelButton.Visible=True
M.CancelButton.Cancel=True
M.CancelButton.Caption="Cancel"
M.AlternateActionButton.Visible=True
M.AlternateActionButton.Caption="Don't Do It"
B=M.ShowModal
Select Case B
Case M.ActionButton
//The user clicked the "Do It" button
//Act accordingly
Case M.CancelButton
//The user clicked the "Cancel" button
//Act accordingly
Case M.AlternateActionButton
//The user clicked the "Don't Do It" button
//Act accordingly
End Select
--
Brad Rhine
[EMAIL PROTECTED]
http://bradrhine.com
Tangelo: Web Publishing... With A Twist!
Robert Poland
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
