IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

ListBox multicolonne et TextBox


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 72
    Par défaut 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

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    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

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 72
    Par défaut
    Je suis bien sous VB6.

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

  4. #4
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 72
    Par défaut
    Merci c'est super sympa. Je regarde ca

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 72
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [win32] ListBox MultiColonne
    Par edrin17 dans le forum Composants VCL
    Réponses: 4
    Dernier message: 14/11/2007, 20h26
  2. [vc express] listBox multicolonne
    Par k_boy dans le forum VC++ .NET
    Réponses: 1
    Dernier message: 19/09/2006, 09h56
  3. Boucle avec une listbox multicolonne
    Par morgan47 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 28/08/2006, 21h45
  4. ListBox Multicolonne à largeur variable
    Par ejaecker dans le forum Delphi
    Réponses: 2
    Dernier message: 21/07/2006, 18h32
  5. Réponses: 4
    Dernier message: 21/07/2006, 14h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo