2.6.3.Элементы управления - Поле


Элемент управления TextBox (Поле) предназначен для отображения информации: вводимой пользователем, данных, получаемых в результате различных запросов рабочим листам, базам данных, а также отображения результатов вычислений. Если поле связано с источником данных, то изменение содержания поля ввода вызывает и изменение данных в источнике. Основным свойством поля является свойство Text, задающее отображаемые в нем Данные.
 
В следующем примере создается простейшее приложение по вводу данных (фамилии и имени) о клиенте в таблицу рабочего листа. Создайте форму, на которой расположите две надписи, два поля и кнопку.

Private Sub CommandButton1_Click()
Dim n As Integer

n = Range("A1").CurrentRegion.Rows.Count
Cells(n + 1, 1).Value = TextBox1.Text
Cells(n + 1, 2).Value = TextBox2.Text
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Существует много способов быстрого ввода данных с помощью полей, как правило, реализация большинства из них не требует большого кода. Например, при вводе ИНН, лицензионного ключа ввод производится в несколько полей, причем при заполнении очередного поля фокус автоматически получает следующее. Как это сделать? Просто надо воспользоваться событием change и отслеживать, сколько символов было введено в текущее поле. Продемонстрируем это на примере, в котором на форме имеются три поля. При вводе в текущее поле четырех символов фокус получает следующее поле. По заполнению полей отображается окно с подтверждением введенных данных.

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 4 Then
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
If Len(TextBox2.Text) = 4 Then
TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_Change()
If Len(TextBox3.Text) = 4 Then
MsgBox TextBox1.Text + "-" + TextBox2.Text + "-" + TextBox3.Text
End If
End Sub


 
     
Всплывающая подсказка
 
Элементам управления можно устанавливать всплывающую подсказку при помощи свойства ControlTipText.

  

    


КОНТАКТЫ
Ермакова Надежда Игоревна
Лицей им.Г.Ф.Атякшева
ХМАО-Югорск, ул Ленина 24



+7 9222596815 nady_er@mail.ru
КАРТА
sample map