List1(Index - 1).ListIndex = i
List1(Index - 1).Selected(i) = Not List1(Index - 1).Selected(i) End If
Next
End If
End Sub
Private Sub List1_OLECompleteDrag(Index As Integer, Effect As Long)
For i = 0 To List1(Index).ListCount - 1 If List1(Index).Selected(i) Then List1(Index).ListIndex = i List2.AddItem List1(Index).Text
End If
Next
End Sub
Private Sub List1_OLEStartDrag(Index As Integer, Data As _ DataObject, AllowedEffects As Long)
sss$ = pr & vbCrLf
For i = 0 To List1(Index).ListCount - 1 If List1(Index).Selected(i) Then List1(Index).ListIndex = i
ss$ = List1(Index).Text sss = sss & ss & vbCrLf End If
Next
Text1 = sss
End Sub
Рис.36
Управляющий элемент ComboBox
Этот управляющий элемент объединяет в себе возможности текстового поля TextBox и списка ListBox. Свойство Style такого комбинированного поля определяет один из трех режимов настройки.
1.Style=0 – определяет текстовое поле с кнопкой, раскрывающей список. В этом режиме можно выбрать строку из списка (она помещается в свойство Text), исправить ее или ввести с клавиатуры свой текст, которого нет в списке.
2.Style=1 – определяет текстовое поле без кнопки, при этом список листается клавишами управления (вверх и вниз). В этом режиме можно также исправлять и вводить новые значения.
3.Style=2 – определяет текстовое поле с кнопкой, раскрывающей список, который нельзя исправить. В этом режиме значение.
Комбинированные поля обладают теми же свойствами и методами, что и ListBox.
Пример 28. Создать каталог книг, содержащий автора книги, название книги, издательство и год, используя списки ComboBox.
Для всех списков установим свойство Style=0.
С помощью кнопки Начать цикл записей запускается бесконечный цикл ввода в списки ComboBox атрибутов книги через диалог InputBox. Цикл завершается, когда при запросе автора книги последует ввод пустой строки. После чего в полях списков ComboBox высветится первая запись книжного каталога. С помощью кнопки Заполнить списки записью в списках формируются пустые поля для ввода новых атрибутов книги. Для того чтобы сформированная запись о книге занеслась в конец каждого списка, необходимо нажать кнопку Добавить запись в список.
Private Sub Command1_Click() 'Кнопка Выход
End
End Sub
Private Sub Command2_Click() 'Кнопка Добавить запись в список
For i = 0 To 2
Combo1(i).AddItem Combo1(i).Text Combo1(i).ListIndex = Combo1(i).TopIndex
Next
End Sub
Private Sub Command4_Click() 'Кнопка Заполнить списки записью
Do While True i = 0
s$ = InputBox("Автор книги") If s = "" Then Exit Do Combo1(i).AddItem s
i = i + 1
s = InputBox("Название книги") Combo1(i).AddItem s
i = i + 1
s = InputBox("Издательство и год выпуска книги") Combo1(i).AddItem s