listbox multicolonne ?

Version imprimable

Bonjour,
y a t'il une limite pour la création de listbox multicolonne,
Car j'ai un script qui fonctionne avec 10 colone ( de 0 a 9) et lorsque je rajoute unen colonne suplémentaire ca ne marche pas.

Erreur d'éxécution 380 : Impossible de définir la proprièté column. Valeur de propriété non valide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Form_Load() ListBox1.ColumnCount = 11 ListBox1.ColumnWidths = "100;100;100;100;100;100;100;100;100;100;100" ListBox1.AddItem "1" lst = ListBox1.ListCount ListBox1.Column(1, lst - 1) = "2" ListBox1.Column(2, lst - 1) = "3" ListBox1.Column(3, lst - 1) = "4" ListBox1.Column(4, lst - 1) = "5" ListBox1.Column(5, lst - 1) = "6" ListBox1.Column(6, lst - 1) = "7" ListBox1.Column(7, lst - 1) = "8" ListBox1.Column(8, lst - 1) = "9" ListBox1.Column(9, lst - 1) = "10" ListBox1.Column(10, lst - 1) = "11" End Sub
Lorsque je commente ListBox1.Column(10, lst - 1) = "11" le script marche et sinon non.

Est ce que quelqu'un pourrai me renseigner?
Merci beaucoup.

23/08/2007, 09h07
bricoyeye

Salut,

Pour info, une listbox ne peut pas avoir plus de 10 Colones!
Désolé pour toi.
23/08/2007, 10h10
morgan47

Merci pour la réponse.

Je vais essayer avec une listview mais je n'arrive pas a insérer plusieur colonne.
Aurait tu des info dessus?
23/08/2007, 11h34
bricoyeye

1 pièce(s) jointe(s)

Salut,
Un petit zip pour les fonctions de listview
23/08/2007, 14h39
morgan47

Merci pour ton fichier il va m'etre utile.

Par contre encore une chose :)

Dans la listeview les numeros des colonnes commence a 0 ou 1?
la premier colone c Column(0) ou Column(1) ?
23/08/2007, 14h53
OhMonBato

Tu ne peux pas faire l'essai toi même en changeant le texte de la colonne 1 ? ;)

C'est ce que j'ai fait :) mais le problème c'est que ne chanchant des information tout a l heure sur les listview j'ai trouvé ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
With ListView1
              .MultiSelect = True               ' Séléction de plusieur lignes
              .HideSelection = False            ' Même sans le focus, la séléction reste
              .FullRowSelect = True             ' Séléctionne la ligne entière
              .GridLines = True                 ' Affiche les lignes de la grille
              .View = lvwReport                 ' Affichage en grille
              '--------------------------------------------------------------------------
              .ColumnHeaders.Add                ' Ajout d'une colonne
              .ColumnHeaders.Add                ' Ajout d'une colonne
              .ColumnHeaders(1).Text = "Nom de l'Objet"  ' Spécifie la caption de la première colonne
              .ColumnHeaders(1).Width = .Width / 2
              .ColumnHeaders(2).Text = "Date de Création"  ' Spécifie la caption de la deuxième colonne
              .ColumnHeaders(2).Width = .Width / 2
              .Arrange = lvwAutoLeft            ' Range tout à gauche
End With

et la ColumnHeaders commence a 1 et pas a zero.
C'est pour ca je ne comprend pas trop.

Et aussi quel est la différence entre:
MsgBox View1.SelectedItem.SubItems(2)
MsgBox View1.SelectedItem.ListSubItems(2)

LEs 2 m'affiche la meme chose.