ВУЗ:
Составители:
Рубрика:
Первый из них применяется для хранения списка значений, из которых
пользователь может выбрать одно или несколько значений. Второй сочета-
ет в себе функциональные возможности списка ListBox и поля ввода
TextBox. В отличие от ListBox ComboBox отражает только один эле-
мент списка, не позволяет одновременно выделять несколько элементов
списка. Дополнительно он может вводить значение через поле ввода, как
это делает элемент управления TextBox.
Для того чтобы значения в поле вводились автоматически при вызо-
ве программы Form2, включим в программу процедуру активизации фор-
мы Private Sub UserForm_Activate(), внутри которой поэле-
ментно в цикле добавляются элементы в список с помощью метода Ad-
dItem.
'Процедура активизации формы
Private Sub UserForm_Activate()
'Заполнение комбинированного списка, формирующего
‘номера вариантов
ComboBox1.Clear
For i=1 To 3
ComboBox1.AddItem i
Next i
'Заполнения списка, формирующего список данных
For i=1 To 6
ListBox1.AddItem i
Next i
End Sub
6) Процедура Private Sub CmdData_Click() активизиру-
ется при нажатии на клавишу Вариант и в зависимости от варианта, вы-
бранного в списке или введенного в поле ввода элемента управления Com-
boBox, заполняет поля ввода TextBox1 и TextBox2 значениями из со-
ответствующих полей Списка.
' Процедура присвоения данных из списка в зависимости от варианта
Private Sub CmdData_Click()
TextBox3.Value = " "
v = Val(ComboBox1.Text)
If v=1 Then
TextBox1.Value = ListBox1.List(0)
Первый из них применяется для хранения списка значений, из которых
пользователь может выбрать одно или несколько значений. Второй сочета-
ет в себе функциональные возможности списка ListBox и поля ввода
TextBox. В отличие от ListBox ComboBox отражает только один эле-
мент списка, не позволяет одновременно выделять несколько элементов
списка. Дополнительно он может вводить значение через поле ввода, как
это делает элемент управления TextBox.
Для того чтобы значения в поле вводились автоматически при вызо-
ве программы Form2, включим в программу процедуру активизации фор-
мы Private Sub UserForm_Activate(), внутри которой поэле-
ментно в цикле добавляются элементы в список с помощью метода Ad-
dItem.
'Процедура активизации формы
Private Sub UserForm_Activate()
'Заполнение комбинированного списка, формирующего
‘номера вариантов
ComboBox1.Clear
For i=1 To 3
ComboBox1.AddItem i
Next i
'Заполнения списка, формирующего список данных
For i=1 To 6
ListBox1.AddItem i
Next i
End Sub
6) Процедура Private Sub CmdData_Click() активизиру-
ется при нажатии на клавишу Вариант и в зависимости от варианта, вы-
бранного в списке или введенного в поле ввода элемента управления Com-
boBox, заполняет поля ввода TextBox1 и TextBox2 значениями из со-
ответствующих полей Списка.
' Процедура присвоения данных из списка в зависимости от варианта
Private Sub CmdData_Click()
TextBox3.Value = " "
v = Val(ComboBox1.Text)
If v=1 Then
TextBox1.Value = ListBox1.List(0)
Страницы
- « первая
- ‹ предыдущая
- …
- 63
- 64
- 65
- 66
- 67
- …
- следующая ›
- последняя »
