Text Boxes and Text

A text box control is a box in which the user can enter text while the dialog box is displayed. By default, a text box holds a single line of text. Enable support single and multiline text boxes. The last parameter of the textbox function contains a variable to set the textbox style.

Sub Main()
    MsgBox "This example displays a dialog box that shows the difference between a single-line text box and a multi-line text box."
    Begin Dialog TextBoxSample 16,30,180,96,"Text Boxes and Text"
        OKButton 125,74,40,14
        CancelButton 125,55,40,14
        Text 8,44,84,8,"Single-lineText Box:"
        TextBox 8,20,100,12,.TextBox1
        Text 8,44,84,8,"Multi-lineText Box:"
        TextBox 8,56,100,32,.TextBox2,1
    End Dialog
    Dim Dlg1 As TextBoxSample
    Button = Dialog ( Dlg1 )
End Sub

Example Code: How to implement a multiline textbox

Sub Main()
   Begin Dialog DialogType 60, 60, 140, 185, "Multiline Text Dialog"
      TextBox 10, 10, 120, 150, .Textbox1
      CancelButton 25, 168, 40, 12
      OKButton 75, 168, 40, 12
   End Dialog
   
   Dim Dlg1 As DialogType
   Dlg1.Textbox1 = "The quick brown fox jumped over the lazy dog"
   ' Dialog returns -1 For OK, 0 For Cancel
   Button = Dialog( Dlg1 )
   If Button = 0 Then Exit Sub
   MsgBox "TextBox: "& Dlg1.Textbox1
End Sub