Private Sub Option1_Click(Index as Integer) ' Ces contrôles OptionButton offrent deux choix : Croissant ' (Index 0), et Décroissant (Index 1). Cliquez sur l'un ' d'eux pour définir l'ordre de tri du contrôle ListView. ListView1.SortOrder = Index ListView1. Sorted = True ' Trie la liste. End Sub Private Sub Form_Load() ' Crée une variable objet pour l'objet ColumnHeader. Dim clmX As ColumnHeader ' Ajoute une collection ColumnHeaders. La largeur des colonnes est ' égale à celle du contrôle divisée par le nombre d'objets ' ColumnHeader. Set clmX = ListView1.ColumnHeaders. _ Add(, , "Company", ListView1.Width / 3) Set clmX = ListView1.ColumnHeaders. _ Add(, , "Address", ListView1.Width / 3) Set clmX = ListView1.ColumnHeaders. _ Add(, , "Phone", ListView1.Width / 3) ' Définit la propriété BorderStyle. ListView1.BorderStyle = ccFixedSingle ' Définit la vue Détails. ListView1.View = lvwReport ' Légendes des contrôles OptionButton avec les options de tri. Option1(0).Caption = "Croissant (A-Z)" Option1(1).Caption = "Décroissant (Z-A)" ListView1 .SortOrder = lvwAscending ' Tri croissant. ' Crée des variables objet pour les objets d'accès aux données. Dim myDb As Database, myRs As Recordset ' Spécifie BIBLIO.MDB comme base de données. Set myDb = DBEngine.Workspaces(0).OpenDatabase("BIBLIO.MDB") ' Spécifie la table Publishers comme jeu d'enregistrements. Set myRs = myDb.OpenRecordset("Publishers", dbOpenDynaset) ' Crée une variable pour ajouter des objets ListItem. Dim itmX As ListItem ' Quand l'enregistrement n'est pas le dernier, ' ajoute un objet ListItem. ' Utilise le champ Name pour le texte de l'objet ListItem. ' Utilise le champ Address pour le sous-élément(1) ' de l'objet ListItem. ' Utilise le Champ Telephone pour le sous-élément(2) de ' l'objet ListItem. While Not myRs.EOF Set itmX = ListView1.ListItems.Add(, , CStr(myRs!Name)) ' Si le champ Address n'est pas nul, affecte sa ' valeur au sous-élément 1. If Not IsNull(myRs!Address) Then itmX.SubItems(1) = CStr(myRs!Address) ' Champ Adress End If ' Si le Champ Telephone n'est pas nul, affecte ' sa valeur au sous-élément 2. If Not IsNull(myRs!Telephone) Then itmX.SubItems(2) = myRs!Telephone ' Champ Telephone. End If myRs.MoveNext ' Passe à l'enregistrement suivant. Wend 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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question