LISTBOX MULTI COLONNES

Commentaire de ScSami le 25/04/2005 20:44:10

Bon, j'ai pas téléchargé la source mais selon ce que j'ai compris tu utilises plusieurs ListBox !!!!

Je n'ai qu'une question :
N'est-ce pas aberrant lorsqu'il existe les ListView ??????

Bonne prog.

Commentaire de BADGE le 15/07/2005 20:46:09

Je trouve que le scroll "lag" trop à mon goût. Je dois avouer que j'ai déjà penser à cette solution, mais elle n'est pas esthétique. De plus, il n'est pas facilement transportable d'un projet à l'autre. Je préfère le ListView! Par contre, je n'ai pas trouvé comment changé l'ordre de tri en cliquant sur les en-têtes (headers) des colonnes.

Commentaire de ORTIPIC le 16/07/2005 12:01:20

Badge

cette source est tres mediocre.............
mais je n avais pas encore testé un listview  ,et c est bien mieu
j ai trouvé cette source qui explique bien  ,de qui ???? chépu
j ai apporté une modif (rnd......) pour bien voir le tri des colonnes

'---------------------vla------------------------
une form /un listview /ajout du composant   micro...windows....comm.....control  (version 6 sp6)
'------------------------------------------------
Private Sub Form_Load()

Dim i As Integer ' Compteur
   Dim j As Integer ' Compteur d'objets ListSubItems
   Dim sngWidth As Single
   Dim si As ListSubItem
   Dim li As ListItem

   ' Les objets ColumnHeaders et ListSubitems ne sont pas visibles
   ' sauf si la valeur lvwReport est affectée à la propriété View.
   ListView1.View = lvwReport

   ' Calcule la largeur d'un objet ColumnHeader.
   sngWidth = ListView1.Width / 5

   ' Crée cinq objets ColumnHeader.
   For i = 1 To 5
      ListView1.ColumnHeaders.Add Text:="Col " & i, Width:=sngWidth
   Next i
  
   ' Crée vingt objets ListItem. Pour chacun d'entre eux, crée quatre
   ' objets ListSubItem. Définit la couleur rouge pour la propriété
   ' ForeColor de chaque objet.
   For i = 1 To 20
      Set li = ListView1.ListItems.Add(Text:="Élément " & i)
      For j = 1 To 4
         Set si = li.ListSubItems.Add(Text:="Sous-élément " & Int(Rnd * 100)) '' j & i &
         si.ForeColor = vbRed
      Next j
   Next i

End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
   ' Quand vous cliquez sur un objet ColumnHeader, le contrôle
   ' ListView est trié selon les sous-éléments de cette colonne.
   ' Affecte à la propriété SortKey l'index de ColumnHeader - 1
   ListView1.SortKey = ColumnHeader.Index - 1
   ' Affecte à la propriété Sorted la valeur True afin de trier la
   ' liste.
   ListView1.Sorted = True
End Sub


Private Sub ListView1_ColumnClickdd(ByVal ColumnHeader As _
              MSComctlLib.ColumnHeader)
' tri du ListView lors du clic sur l'entête de colonne
  
        Dim strName As String
        Dim dDate As Date
        Dim lngItem As Long
        Dim dTaille As Long

        'Handle User click on column header
        Select Case ColumnHeader.Text
        Case "Fichier"   'User clicked sur l'entete d'une colonne texte
           ListView1.Sorted = True        'Use default sorting to sort the
           ListView1.SortKey = 0          'items in the list
           ListView1.SortKey = ColumnHeader.Index - 1
           ListView1.SortOrder = (ListView1.SortOrder - 1) * -1
        Case "Date"     'User clicked sur l'entete d'une colonne date
           ListView1.Sorted = False      'User clicked on the Date header
                                         'Use our sort routine to sort
           indice = 1                    'by date
           Asce = Not Asce
           SendMessage ListView1.hWnd, _
                       LVM_SORTITEMS, _
                       ListView1.hWnd, _
                       AddressOf CompareDates
             ListView1.Refresh
            For lngItem = 0 To ListView1.ListItems.Count - 1
                ListView_GetListItem lngItem, ListView1.hWnd, strName, dDate
            Next
          
        Case "Taille"     'User clicked sur l'entete d'une colonne numérique
           ListView1.Sorted = False
                                         'Use our sort routine to sort
           indice = 2                    'by date
           Asce1 = Not Asce1
           SendMessage ListView1.hWnd, _
                       LVM_SORTITEMS, _
                       ListView1.hWnd, _
                       AddressOf CompareValeurs
            ListView1.Refresh
            For lngItem = 0 To ListView1.ListItems.Count - 1
                ListView_GetListItemN lngItem, ListView1.hWnd, strName, dTaille
            Next
        
        End Select
  
End Sub

Commentaire de couteau7 le 20/06/2006 19:40:04

Bonjour, peut être que vous pourrez me sauver la vie sa va fair 2 semaine que je cherche dans tous les coins et la je suis limite a jeter mon ordinateur j'ai réaliser un petit programme qui n'a pas besoins d'un listview mais juste une listbox a 2 colonnes.

Pour les remplir il y a pas de problème meme pour acceder au information mais mon réel problème c'est comment ajouter dans l'en tete des colonne se que se represent dans la colonne 1 c'est "Articles" et dans la 2 emme c'est "Quantité" j'ai tout tester j'ai regarder dans tout les code que j'ai pu trouver il y a tout d'expliquer mais rien sur sa .

veuillez m'excuser de < m'incruster >

Encore merci

Commentaire de couteau7 le 21/06/2006 07:05:21

Oui j'y avais pensé mais bon je pense que je vais le faire sa va me faire moins de boullot comme ça

Commentaire de Jielde le 22/06/2006 01:55:32

Oui un combo/TextBox te permettra de faire des recherche intuitive dans la listbox.