Propriedade Control.Selected (Access)
Use a propriedade Selected no Visual Basic para determinar se um item está selecionado. Long de leitura/gravação.
Sintaxe
expressão. Selecionado (lRow)
Expressão Uma variável que representa um objeto Control .
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.