Свойство Control.Selected (Access)

С помощью свойства Selected в Visual Basic можно определить, выбран ли элемент. Для чтения и записи, Long.

Синтаксис

выражение. Выбрано (lRow)

выражение Переменная, представляющая объект управления .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
lСтрока	Обязательный	Long	Элемент в списке. Первый элемент представляется нулем (0), второй — единицей (1) и так далее.

Примечания

Свойство "Выбрано " — это массив, начинающийся с нуля, который содержит выбранное состояние каждого элемента списка.

Setting	Описание
True	Выбран элемент списка.
False	Элемент списка не выбран.

Это свойство доступно только во время выполнения.

Если свойство MultiSelect элемента управления "список" имеет значение "Нет", только для одного элемента может быть установлено свойство "Выбрано " в значение "Истина". Если свойство MultiSelect элемента управления "список" задано в положение "Простой" или "Расширенный", свойство "Выбрано " любого или всех элементов может быть установлено в положение Истина. Если к полю привязан список множественного выбора, свойство Value всегда равно Null. Свойство Selected или коллекция ItemsSelected используются для получения сведений о выбранных элементах.

Свойство "Выбрано " используется для выбора элементов в списке в Visual Basic. Например, следующее выражение выбирает пятый элемент в списке:

Me!Listbox.Selected(4) = True

Пример

В следующем примере свойство Selected используется для перемещения выбранных элементов из списка lstSource в список lstDestination . Свойству RowSourceType диалогового окна lstDestination присваивается значение Value List, а свойство RowSource элемента управления создается из всех выбранных элементов в элементе управления lstSource. Свойство MultiSelect списка lstSource имеет значение Extended. Процедура CopySelected( ) вызывается с помощью кнопки команды cmdCopyItem .

Private Sub cmdCopyItem_Click() 
 CopySelected Me 
End Sub 
 
Public Sub CopySelected(ByRef frm As Form) 
 
 Dim ctlSource As Control 
 Dim ctlDest As Control 
 Dim strItems As String 
 Dim intCurrentRow As Integer 
 
 Set ctlSource = frm!lstSource 
 Set ctlDest = frm!lstDestination 
 
 For intCurrentRow = 0 To ctlSource.ListCount - 1 
 If ctlSource.Selected(intCurrentRow) Then 
 strItems = strItems & ctlSource.Column(0, _ 
 intCurrentRow) & ";" 
 End If 
 Next intCurrentRow 
 
 ' Reset destination control's RowSource property. 
 ctlDest.RowSource = "" 
 ctlDest.RowSource = strItems 
 
 Set ctlSource = Nothing 
 Set ctlDest = Nothing 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.