Propriété Control.Selected (Access)

Article
04/07/2023

Utilisez la propriété Selected dans Visual Basic pour déterminer si un élément est sélectionné. Long (en lecture/écriture).

Syntaxe

expression. Sélectionné (lRow)

Expression Variable qui représente un objet Control .

Parameters

Nom	Requis/Facultatif	Type de données	Description
lRow	Obligatoire	Entier long	Élément dans la zone de liste. Le premier élément est représenté par zéro (0), le second par un (1), etc.

Remarques

La propriété Selected est une matrice de base zéro contenant l'état de sélection de chaque élément figurant dans une zone de liste.

Paramètre	Description
True	L'élément de la zone de liste est sélectionné.
False	L'élément de la zone de liste n'est pas sélectionné.

Cette propriété n'est disponible qu'à l'exécution.

Quand la propriété MultiSelect d'un contrôle de zone de liste est définie sur None, la valeur de la propriété Selected est True pour un seul élément. Quand la propriété MultiSelect d'un contrôle de zone de liste est définie sur Simple ou Extended, la propriété Selected d'un seul ou de tous les éléments peut être définie sur True. Une zone de liste à sélection multiple liée à un champ a toujours une propriété Value égale à Null. Vous utilisez la propriété Selected ou la collection ItemsSelected pour obtenir des informations sur les éléments sélectionnés.

Utilisez la propriété Selected pour sélectionner des éléments dans une zone de liste à l’aide de Visual Basic. Par exemple, l'expression suivante sélectionne le cinquième élément dans la liste :

Me!Listbox.Selected(4) = True

Exemple

L’exemple suivant utilise la propriété Selected pour déplacer les éléments sélectionnés de la zone de liste lstSource vers la zone de liste lstDestination . La propriété RowSourceType de la zone de liste lstDestination est définie sur Liste de valeurs, et la propriété RowSource du contrôle est construite à partir de tous les éléments sélectionnés dans le contrôle lstSource. La propriété MultiSelect de la zone de liste lstSource est définie sur Étendu. La procédure CopySelected( ) est appelée à partir du bouton de commande 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via