basic

Example:

1. ' This sample shows all of the dialog controls on one dialog and how to

   ' vary the response based on which PushButton was pressed.

   Sub Main ()

   1. Dim MyList$(2)

      MyList(0) = "Banana"

      MyList(1) = "Orange"

      MyList(2) = "Apple"

      Begin Dialog DialogName1 60, 60, 240, 184, "Test Dialog"

      1. Text 10, 10, 28, 12, "Name:"

         TextBox 40, 10,50, 12, .joe

         ListBox 102, 10, 108, 16, MyList$(), .MyList1

         ComboBox 42, 30, 108, 42, MyList$(), .Combo1

         DropListBox 42, 76, 108, 36, MyList$(), .DropList1$

         OptionGroup .grp1

         1. OptionButton 42, 100, 48, 12, "Option&1"

            OptionButton 42, 110, 48, 12, "Option&2"

         OptionGroup .grp2

         1. OptionButton 42, 136, 48, 12, "Option&3"

            OptionButton 42, 146, 48, 12, "Option&4"

         GroupBox 132, 125, 70, 36, "Group"

         CheckBox 142, 100, 48, 12, "Check&A", .Check1

         CheckBox 142, 110, 48, 12, "Check&B", .Check2

         CheckBox 142, 136, 48, 12, "Check&C", .Check3

         CheckBox 142, 146, 48, 12, "Check&D", .Check4

         CancelButton 42, 168, 40, 12

         OKButton 90, 168, 40, 12

         PushButton 140, 168, 40, 12, "&Push Me 1"

         PushButton 190, 168, 40, 12, "Push &Me 2"

      End Dialog

      Dim Dlg1 As DialogName1

      Dlg1.joe= "Def String"

      Dlg1.MyList1 = 1

      Dlg1.Combo1 = "Kiwi"

      Dlg1.DropList1 = 2

      Dlg1.grp2 = 1

      ' Dialog returns -1 for OK, 0 for Cancel, button # for PushButtons

      button = Dialog( Dlg1 )

      'MsgBox "button: " & button 'uncomment for button return vale

      If button = 0 Then Exit Sub

      MsgBox "TextBox: "& Dlg1.joe

      MsgBox "ListBox: " & Dlg1.MyList1

      MsgBox Dlg1.Combo1

      MsgBox Dlg1.DropList1

      MsgBox "grp1: " & Dlg1.grp1

      MsgBox "grp2: " & Dlg1.grp2

      Begin Dialog DialogName2 60, 60, 160, 60, "Test Dialog 2"

      1. Text 10, 10, 28, 12, "Name:"

         TextBox 42, 10, 108, 12, .fred

         OkButton 42, 44, 40, 12

      End Dialog

      If button = 2 Then

      1. Dim Dlg2 As DialogName2

         Dialog Dlg2

         MsgBox Dlg2.fred

      ElseIf button = 1 Then

      1. Dialog Dlg1

         MsgBox Dlg1.Combo1

      End If

   End Sub