OpenEdge GUI dialog
|
OpenEdge GUI for .NET dialog
|
DEFINE BUTTON bOK AUTO-ENDKEY DEFAULT
LABEL "OK". DEFINE FRAME frmCustomer "Hello, world!" bOK WITH FRAME frmCustomer DEFAULT-BUTTON bOK VIEW-AS DIALOG-BOX. ENABLE ALL WITH FRAME frmCustomer. VIEW FRAME frmCustomer. WAIT-FOR WINDOW-CLOSE OF FRAME frmCustomer. |
USING Infragistics.Win.Misc.*.
USING System.Windows.Forms.*. DEFINE VARIABLE rForm AS Progress.Windows.Form. DEFINE VARIABLE rLabel AS UltraLabel. DEFINE VARIABLE rOKButton AS UltraButton. rForm = NEW Progress.Windows.Form( ). rLabel = NEW UltraLabel( ). rOKButton = NEW UltraButton( ). rLabel:Text = "Hello, world!". rOKButton:Text = "OK". rOKButton:Left = rLabel:Width + 1. rOKButton:DialogResult1 = DialogResult:Ok. rForm:AcceptButton = rOKButton. rForm:Controls:Add(rLabel). rForm:Controls:Add(rOKButton). rForm:Height = 3 * rOKButton:Height. rForm:Width = rOKButton:Right + 10. WAIT-FOR rForm:ShowDialog( ). rForm:Dispose( )2 |
MESSAGE "Hello, world!"
VIEW-AS ALERT-BOX. |
USING System.Windows.Forms.*.
MessageBox:Show("Hello, world!"). |