Основы офисного программирования и язык VBA


Пример 2.1 - часть 2


End Sub

Private Sub ListBox2_Enter()

'Обработчик события Enter, возникающего при получении фокуса

CommandButton1.Caption = "<"

CommandButton2.Caption = "<<"

End Sub

Private Sub UserForm_Initialize()

'Обработчик события Initialize формы TwoListsForm

'Заполнение списка ListBox1

Dim MyArray(1 To 5, 1 To 2) As String

MyArray(1, 1) = "Петров" : MyArray(1, 2) = "Музыкант"

MyArray(2, 1) = "Сергеев" : MyArray(2, 2) = "Учитель"

MyArray(3, 1) = "Гурина" : MyArray(3, 2) = "Актриса"

MyArray(4, 1) = "Водкин" : MyArray(4, 2) = "Художник"

MyArray(5, 1) = "Козина" : MyArray(5, 2) = "Геолог"

ListBox1.ColumnCount = 2 : ListBox2.ColumnCount = 2

ListBox1.List() = MyArray

End Sub




Начало  Назад  Вперед