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!
_______________________________________________
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>
