На этом шаге мы рассмотрим. пример использования выбора нескольких элементов из списка.

    Свойство MultiSelect позволяет устанавливать режим, при котором допустим выбор нескольких элементов из списка. Свойство Selected предоставляет возможность проверить, выбран ли элемент с указанным индексом. На рисунке 1 показан выбор нескольких элементов из списка.

Рис.1. Выбор нескольких элементов из списка

    Приведем пример использования этих свойств при вычислении среднего значения выбранных в списке элементов. Результат работы изображен на рисунке 1.

Private Sub CommandButton1_Click()
'Вычисление среднего
 With ListBox1
    Среднее = 0
    n = 0
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        n = n + 1
        Среднее = Среднее + .List(i)
      End If
    Next i
  End With
  Среднее = Среднее / n
  TextBox1.Text = Среднее
End Sub

Private Sub CommandButton2_Click()
'Заполнение списка
 With ListBox1
  .List = Array(1, 3, 4, 5, 6, 7, 8, 9)
  .ListIndex = 0
  .MultiSelect = fmMultiSelectMulti
 End With
End Sub

    На следующем шаге мы рассмотрим элемент управления ComboBox.

Предыдущий шаг Содержание Следующий шаг