Текстовое поле (TextBox)

Является основным элементом управления, предназначенным для ввода данных.

События:

Change - вызывается при изменении содержимого текстового поля. Происходит каждый раз при вводе, удалении или изменении символа. Событие возникает до потери.

Пример контроля вводимых данных (ввод в текстовое поле только числового значения):

Private Sub txtNomGr_Change()

If Not IsNumeric(txtNomGr) Then

MsgBox “Вводите только цифры”

EndIf

End Sub

Validate – используется для проверки введенного в текстовое поле значения. Событие Validate возникает только в том случае, если для текстового поля свойству Causes Validation задано значение True.

Пример контроля вводимых данных (на соответствие вводимого значения заданному диапазону значений):

Private Sub txtNomGr_Validate(Cancel_

As Boolean)

If Val(txtNomGr.Text)<100 Or _

Val(txtNomGr.Text)>9999 Then

MsgBox “Номера групп от 100 до 9999”

EndIf

End Sub

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

LostFocus - используется для анализа введенного в поле текста. Событие возникает, когда текстовое поле становится неактивным (после передачи фокуса другому элементу). Однако, если это поле является единственным элементом в форме, то оно не может потерять фокус.

Первым возникает событие Validate, затем LostFocus.

GotFocus - используется для удаления или инициализации содержимого текстового поля. Вызывается, когда курсор устанавливается в текстовое поле.

Пример:

Private Sub txtNomGr_LostFocus()

Stud.NomGr=txtNomGr.Text

End Sub

Свойства текстового поля:

Text - содержит отображаемый в поле текст.

Enabled – определяет, будет ли элемент управления реагировать на событие или нет. Если свойству задано значение False, то элемент недоступен.

Visible – управляет видимостью элемента на экране. Если значение свойства False, то элемент “скрыт” от пользователя

Пример: