Fonctions pratique pour listview

Télécharger le projet
Commenter

Description

En gros j'utilise ces commandes depuis bien longtemps.
Sa fonctionne Nickel, alors voilà, si cela peut aider d'autres !
Pratique pour ouvrir une BDD et placer les donner dans le ListView
ou encore, pour un explorer avec un listView...
Je n'ai jamais utilisé le TreeView, mais je pense que ces fonctions devraient être adaptable.

Source / Exemple : 


Un mini exemple vite fait d'un usage:
Dim Strings as variant
        Strings = Split(LesTitres, Delimiteur)
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' 1) MISE EN PLACE DES TITRES
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    Cls_ListView LView, Strings
    AjusteListView Me, LView
    For X = 1 To UBound(Strings)
        LstChamps.AddItem Strings(X)
        Next

' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' 2A) REMPLISSAGE DES LIGNES
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Do While Not EOF(1)
    Line Input #1, L
    Strings = Split(L, "|")
    RemplieView LView, Strings
    P_Bar.Value = Y
Loop

Conclusion :


1) Cls_ListView LView, Strings
Cette commande initialise le ListView puis remplie les titres.
Strings représente le tableau des titres

2) AjusteListView Me, LView
Cette commande ajuste le ListView !

3) RemplieView LView, Strings
Comme la première commande pour le Strings.
Bien que dans ce cas, cela remplie les lignes.

ETC ...

Le tableau "ligne" doit correspondre aux titres au maximum !
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Galactus13)