NewMultiLineTextBox

Adds a multiline textbox control to a form.

A MultiLineTextBox is just a TextBox with the MultiLine property set to True. A separate control was needed because the multiline property of a TextBox cannot be set at runtime.

[Set oCtl =] oFrm.NewMultiLineTextBox

( Name, Left, Top, Width, Height, [Text], [Container] )

Part

Description

Set oCtl =

(optional) Store a reference to the new control in the variable oCtl. This variable can be used to access the control's properties and methods

oFrm

A reference to a form object (see the NewForm method)

Name

The name of the control. It must be unique within the form and may not be empty or start with an asterisk (*)

Left

See the list of properties below

Top

See the list of properties below

Width

See the list of properties below

Height

See the list of properties below

Text

(optional) See the list of properties below

Container

(optional) The name of an existing frame control that will act as container for the textbox. If unspecified or an empty string, the Form itself will be the container. Please note that the Left and Top properties are relative to the container's left and top edges

Property

Description

Alignment

0

Text is left-aligned (default)

1

Text is right-aligned

2

Text is centered

BackColor

Background color (use the RGB function to assign a color value)

BorderStyle

0

None

1

Fixed single (default)

Enabled

(boolean) Determines if the control can respond to user-generated events

Fontname

The font used to display text. The default is determined by the system. Check the glossary for an explanation about setting font properties.

Fontsize

The size of the font in points. The maximum is 2160 points.

Fontbold

(boolean) Enable or disable the bold style of a font

Fontitalic

(boolean) Enable or disable the italic style of a font

Fontstrikethru

(boolean) Enable or disable the strikethru style of a font

Fontunderline

(boolean) Enable or disable the underline style of a font

ForeColor

Foreground color (use the RGB function to assign a color value)

Height

The height of the control in twips

Left

The distance from the left edge of the specified container in twips

Locked

(boolean) Determines whether a control can be edited (default) or not.
When True, a user can scroll and highlight the text, but can't edit it.
The program can still modify the text by changing the Text property.

MaxLength

An integer specifying the maximum number of characters a user can enter. The default is 0, indicating no maximum.

MultiLine

(read-only) Returns True

Parent

(read-only) Returns the parent form, object or collection. You can use the parent property to access the properties and methods of an object's parent

Passwordchar

(string) Returns or sets the character to be used as a placeholder in password fields. Setting this property has no effect on a multiline textbox

ScrollBars

(read-only) Returns 3; both horizontal and vertical scrollbars are enabled

TabStop

(boolean) Determines whether the TAB key can be used to move the focus

Tag

(reserved) Used internally to store the user-defined controlname

Text

Returns or sets the text contained in the edit area of the multiline textbox

ToolTipText

Explanatory text that appears in a small rectangle below the object when you pause the mouse pointer (hover) over it for about one second

Top

The distance from the top edge of the specified container in twips

Visible

(boolean) Determines whether the control is visible or hidden

Width

The width of the control in twips

Method

Description

Move

Parameters: left [, top [, width [, height ]]]

Only the left argument is required. However, to specify any other arguments, you must specify all arguments that appear in the syntax before the argument you want to specify. For example, you can't specify width without specifying left and top. Any trailing arguments that are unspecified remain unchanged

Refresh

Forces a complete repaint of a control

SetFocus

Moves the focus to the specified control

Option Explicit

Const vbModal = 1

Dim oDlg, oFrm, oCtl

'Create the WshDialog.Kit object and store a reference in oDlg
Set oDlg = Wscript.CreateObject("WshDialog.Kit", "oDlg_")

'Add a new form and store a reference to it in the variable oFrm
Set oFrm = oDlg.NewForm("Sample")

'Add a label
oFrm.NewLabel "LBL1", 100, 450, 1200, 300, "Enter some text :"

'Add a multiline textbox control and store a reference in the variable oCtl
Set oCtl = oFrm.NewMultiLineTextBox("MBX1", 100, 700, 4000, 1500)

'Use the reference variable to set some properties
oCtl.ToolTipText = "Enter specifications. Use Ctrl+Enter to move to a new line"
oCtl.ForeColor = RGB(255, 0, 0)

'Add an OK button and set it's Default property
Set oCtl = oFrm.NewButton("OK", 3100, 150, 1000, 375, "&OK")
oCtl.Default = True

'Automatically size the form and show it (modally)
oFrm.Autosize
oFrm.Show vbModal

'Show the text entered in the multiline textbox
MsgBox "You entered the following text : " & vbCrlf & vbCrlf & oFrm.Ctl("MBX1").Text