Основы программирования на VBA. Регеда В.В - 65 стр.

UptoLike

Составители: 

Первый из них применяется для хранения списка значений, из которых
пользователь может выбрать одно или несколько значений. Второй сочета-
ет в себе функциональные возможности списка 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)