Propriedade ListBox.Selected (Access)

Use a propriedade Selected no Visual Basic para determinar se um item em uma caixa de lista está selecionado. Long de leitura/gravação.

Sintaxe

expressão. Selecionado (lRow)

Expressão Uma variável que representa um objeto ListBox .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
lRow	Obrigatório	Long	O item na caixa de listagem. O primeiro item é representado por um zero (0), o segundo por um (1) e assim por diante.

Comentários

A propriedade Selected é uma matriz baseada em zero que contém o estado selecionado de cada item em uma caixa de listagem.

Configuração	Descrição
Verdadeiro	O item da caixa de listagem está selecionado.
False	O item da caixa de listagem não está selecionado.

Esta propriedade só está disponível em tempo de execução.

Quando a propriedade MultiSelect de um controle caixa de listagem é definida como nenhuma, somente um item pode ter sua propriedade Selected definida como True. Quando a propriedade MultiSelect de um controle caixa de listagem é definida como Simple ou Extended, qualquer um ou todos os itens podem ter sua propriedade Selected definida como True. Uma caixa de listagem de várias seleções acoplada a um campo sempre terá uma propriedade de valor igual a Nulo. Use a propriedade Selected ou a coleção ItemsSelected para recuperar informações sobre quais itens estão selecionados.

Use a propriedade Selected para selecionar itens em uma caixa de lista usando o Visual Basic. Por exemplo, a expressão a seguir seleciona o quinto item da lista:

Me!Listbox.Selected(4) = True

Exemplo

O exemplo a seguir usa a propriedade Selected para mover itens selecionados na caixa de lista lstSource para a caixa de lista lstDestination . A propriedade RowSourceType da caixa de listagem lstDestination é definida como Lista de Valores e a propriedade RowSource do controle é construída a partir de todos os itens selecionados no controle lstSource. A propriedade MultiSelect da caixa de listagem lstSource está definida como Estendida. O procedimento CopySelected( ) é chamado do botão de comando 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.