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 !
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.