Сетка привязки. Запуск окна диалога.

Рис. 11.1. Панель «Элементы управления» 11.1. Поле (TextBox)

Элемент управления TextBox позволяет ввести в форму информацию, которая затем может быть использована в программе. Также элемент управления TextBox может служить и для вывода информации.

Для добавления любого элемента управления в форму необходимо нажать соответствующую кнопку на панели элементов управления, а затем щелкнуть по форме в требуемой позиции.

После создания любого элемента управления желательно сразу же присвоить ему новое имя, иначе будет использоваться имя, заданное по умолчанию, и при последующем изменении имени придется редактировать все процедуры, в которых имеется старое имя объекта.

По умолчанию поля имеют имена TextBoxl, TextBox2 и т. д.

Новое значение имени любого элемента управления можно установить либо в окне свойств, вызвав его с помощью кнопки

F4, либо непосредственно в коде процедуры, связанной с этим элементом управления. При присвоении имен полей используется следующее правило:

ТхШмяОбъекта

Например, txtAge - название поля, в которое вводится возраст, а txtFistName - название поля, в которое вводится фамилия.

Для установки и получения содержимого поля используется свойство Value. Это свойство имеет тип Variant.

Например, установка значения свойства поля txtFistName имеет вид:

TxtMyFirstName.\/а1ие="Петров" в поле заносится

значение "Петров"

Для получения значения элемента управления TextBox можно использовать следующие инстр>тсции:

Dim varFirstName As Variant varFirstName=txtFirstName.Value

Если нужно запретить изменение содержимого поля (например, объект TextBox применяется для отображения доступной только для чтения информации, такой, как имена файлов), следует «отключить» поле с помощью свойства Enabled, установив его равным значению False. Если значение свойства равно True, то изменение содержимого поля разрешено.

TxtMyFirstName.Enabled=False

Для получения выделенного в поле текста (с помощью мыши или стрелок управления курсором при нажатой клавише Shift), используется свойство SelText. Например:

Dim varSelected As Variant varSelected=txtMyFirstName.SelText

Кроме получения выбранного в поле текста, можно установить его в программе с помощью свойств SelStart и SelLength элемента TextBox.

Рассмотрим следующий пример, в котором выделим слово «был» в поле TxtMyControl с помощью рассмотренных выше свойств:

Dim VarText As Text VarText="y Петрова был экзамен" TxtMyControl.Value=VarText TxtMyControl.SelStart=ll TxtMyControl.SelLength=3

Для автоматической установки размеров поля используется свойство AutiSize. Если значение этого свойства равно True, то ширина поля автоматически уменьшается или увеличивается в зависимости от числа находящихся в нем символов.

Инструкция может быть записана следующим образом:

TxtMyControl.AutoSize=True

Отметим, что значения свойств могут устанавливаться как в коде программы с помощью соответствующих операторов, так и в окне свойств.

11.2. Надпись (Label)

Элемент управления Label предназначен для вывода текста в форме, например для вывода заголовка для тех элементов управления, у которых отсутствует собственное свойство Caption. В качестве примера таких элементов можно назвать поле или рисунок в форме. В этом случае надпись находится около этого элемента управления, указывая его назначение.

Для задания текста надписи можно использовать свойство Caption. Например:

TxtMyAdress.Caption="Aflpec"

По умолчанию надписи имеют имена Labell, Label2 и т. д.

11.3. Кнопка (CommandButton)

Элемент управления CommandButton задает выполнение некоторого действия, например запуск, прерывание или останов некоторого процесса.

По умолчанию кнопкам присваиваются имена CommandBut-tonl, CommandButton2 и т. д. Для изменения имени кнопки откройте окно свойств и введите новое имя в поле Имя (Name).