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.

  

    


ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map