Exemple ListBox Control, List Property

L’exemple suivant permute les colonnes d’une multi-colonne ListBox. L’exemple utilise la propriété deliste de deux façons:

• Pour accéder aux valeurs individuelles et les échanger dans laListBox. Dans cette utilisation, Liste a la forme d’indices pour désigner les ligne et colonne d’une valeur spécifiée.

• Pour charger initialement laListBox avec des valeurs à partir d’une matrice. Dans cette utilisation,Liste n’a aucune forme d’indices.

Pour utiliser cet exemple, copiez cet exemple de code dans la partie Déclarations d’un formulaire. Assurez-vous que le formulaire contienne uneListBox nommée ListBox1 et unbouton de commande nommé CommandButton1.

Dim MyArray(6, 3) 
'Array containing column values for ListBox. 
 
Private Sub UserForm_Initialize() 
 Dim i As Single 
 
 ListBox1.ColumnCount = 3 
'This list box contains 3 data columns 
 
 'Load integer values MyArray 
 For i = 0 To 5 
 MyArray(i, 0) = i 
 MyArray(i, 1) = Rnd 
 MyArray(i, 2) = Rnd 
 Next i 
 
 'Load ListBox1 
 ListBox1.List() = MyArray 
 
End Sub

Private Sub CommandButton1_Click() 
' Exchange contents of columns 1 and 3 
 
 Dim i As Single 
 Dim Temp As Single 
 
 For i = 0 To 5 
 Temp = ListBox1.List(i, 0) 
 ListBox1.List(i, 0) = ListBox1.List(i, 2) 
 ListBox1.List(i, 2) = Temp 
 Next i 
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.