TextBox Statement

 

TextBox Starting X position, Starting Y position, Width, Height, Default String

 

Creates a Text Box for typing in numbers and text

 

Example:

 

Sub Main ()

    Begin Dialog DialogName1 60, 60, 160, 70, "ASC - Hello"

        TEXT 10, 10, 28, 12, "Name:"

        TEXTBOX 42, 10, 108, 12, .nameStr

        TEXTBOX 42, 24, 108, 12, .descStr

        CHECKBOX 42, 38, 48, 12, "&CHECKME", .checkInt

        OKBUTTON 42, 54, 40, 12

    End Dialog

    Dim Dlg1 As DialogName1

    Dialog Dlg1

 

    MsgBox Dlg1.nameStr

    MsgBox Dlg1.descStr

    MsgBox Dlg1.checkInt

End Sub