Visual Basic Erreur de code avec la Listview
Résolu
YCC
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
A voir également:
- Visual Basic Erreur de code avec la Listview
- Code ascii - Guide
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
2 réponses
Bonjour,
La première ligne d'un contrôle ListView n'est pas l'Item(1), mais l'Item(0), d'où l'erreur ArgumentOutOfRangeException.
Par exemple :
1- Pour ajouter une colonne à chaque ligne :
2- Pour ajouter 3 colonnes à chaque ligne :
Enfin je crois.....
Cordialement,
Franck
La première ligne d'un contrôle ListView n'est pas l'Item(1), mais l'Item(0), d'où l'erreur ArgumentOutOfRangeException.
Par exemple :
1- Pour ajouter une colonne à chaque ligne :
With Form1.ListView1.Items
.Add("01")
.Add("02")
.Add("03")
End With
'ajoute une colonne à la ligne 1
Form1.ListView1.Items(0).SubItems.Add(ComboBox1.Text)
'ajoute une colonne à la ligne 2
Form1.ListView1.Items(1).SubItems.Add(ComboBox2.Text)
'ajoute une colonne à la ligne 3
Form1.ListView1.Items(2).SubItems.Add(ComboBox3.Text)
2- Pour ajouter 3 colonnes à chaque ligne :
With Form1.ListView1
'ajoute une première ligne
.Items.Add("01")
'ajoute une colonne à la ligne 1
.Items(0).SubItems.Add(ComboBox1.Text)
'ajoute une 2ème colonne à la ligne 1
.Items(0).SubItems.Add(TextBox1.Text)
'ajoute une 3ème colonne à la ligne 1
.Items(0).SubItems.Add(TextBox2.Text)
'ajoute une seconde ligne
.Items.Add("02")
'ajoute une colonne à la ligne 2
.Items(1).SubItems.Add(ComboBox2.Text)
'ajoute une 2ème colonne à la ligne 2
.Items(1).SubItems.Add(TextBox3.Text)
'ajoute une 3ème colonne à la ligne 2
.Items(1).SubItems.Add(TextBox4.Text)
'ajoute une troisième ligne
.Items.Add("03")
.Items(2).SubItems.Add(ComboBox3.Text)
.Items(2).SubItems.Add(TextBox5.Text)
.Items(2).SubItems.Add(TextBox6.Text)
End With
Enfin je crois.....
Cordialement,
Franck
