ListBox multicolonne et TextBox

Version imprimable

27/12/2007, 14h26
jeanjean0403

ListBox multicolonne et TextBox

Bonjour,
J'ai un souci de gestion de ma listbox. J'ai une listbox multicolonne et je voudrais, lorsque je clique sur une ligne récupérer dans n Textbox la valeur de mes n colonnes. Pour l'instant, je n'arrive pas a faire la distinction entre les colonnes, je récupère la ligne entière.

Comment faut il faire s'il vous plait ?

PS : je n'arrive pas a trouvé la solution sur le site alors je me permet de poster sur le forum. Désolé si elle existe déjà mais ca fait bientot 2 heures que je suis sur le problème. Merci
27/12/2007, 14h34
ucfoutu

Bonjour,

Si tu es sous VB6 (cette section) et non sous VBA (pour Excel ou autre) , les "colonnes" d'une listbox ne sont pas des vraies colonnes, mais uniquement une disposition d'affichage.

Utilise alors une ListView, pour avoir de vrais colonnes.

Si tu es par contre sous VBA, c'est différent, mais tu n'est alors pas dans la bonne section de ce forum
27/12/2007, 14h53
jeanjean0403

Je suis bien sous VB6.

Alors comment gérer les données d'une Listview ? en entrée et sortie vers n textbox ? merci

Pour çà, il va te falloir commencer par lire MSDN, qui vient avec un exemple...;)

Allez ...

En voilà un, d'exemple ... lis tout et analyse ...

Après avoir inséré une listview nommée ListView1 avec sa propriété View = 3 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Form_Activate()
    ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width / 3
    ListView1.ColumnHeaders.Add , , "prénom ID", ListView1.Width / 3, lvwColumnCenter
    ListView1.ColumnHeaders.Add , , "date de naissance", ListView1.Width / 3
    ListView1.ColumnHeaders.Add , , "", 0
    Dim itmX As ListItem
    For i = 1 To 10
       Set itmX = ListView1.ListItems.Add(, , i)
       itmX.SubItems(1) = "a" & i
       If i Mod 2 = 0 Then
          itmX.SubItems(2) = "17/02/2000"
           itmX.SubItems(3) = "20000117"
       Else
          itmX.SubItems(2) = "20/03/2002"
          itmX.SubItems(3) = "20020320"
       End If
    Next
End Sub
 
Private Sub Command1_Click()
  MsgBox ListView1.ListItems(3)
  MsgBox ListView1.ListItems(3) ' te donne la 1ère colonne de la ligne 3
  MsgBox ListView1.ListItems(3).SubItems(2) 'te donne la 3ème colonne (2 + 1) de la ligne 3
  ListView1.SelectedItem = ListView1.ListItems(2) 'ici : on force la séléction de l'Item 2)
  ListView1.SetFocus
  DoEvents
  Dim choisi As Integer
  choisi = ListView1.SelectedItem
  MsgBox "tu viens de sélectionner la ligne " & choisi & vbCrLf & _
  " qui contient en sa 2ème colonne, le texte " & ListView1.SelectedItem.Text & vbCrLf & _
  " et en sa 2ème colonne, le texte " & ListView1.ListItems(choisi).SubItems(2)
 
End Sub

27/12/2007, 15h49
jeanjean0403

Merci c'est super sympa. Je regarde ca :lol:
28/12/2007, 11h48
jeanjean0403

Bon j'ai finalement utilisé un Listbox et je parcours la ligne en ne sélectionnant que les valeurs qui m'interesse avec comme délimiteur la valeur ASCII de la tabulation (9).

voilà. Merci pour votre aide