OCX - ARBRE STYLE DE L'EXPLORATEUR WINDOWS

Signaler
Messages postés
1114
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
-
Messages postés
308
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/21744-ocx-arbre-style-de-l-explorateur-windows

Messages postés
308
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
1
super ocx, très utile
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

Ajoute ce code :)

Public Property Get Path() As String
Dim Dossier As String
Dossier = Arbre.SelectedItem.Key
If Left(Dossier, 1) ">" Then Dossier Mid(Dossier, 2)
If Right(Dossier, 1) <> "" Then Dossier = Dossier & ""
Path = Dossier
End Property
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Merci fredlynx, ta méthode fonctionne bien chez moi.

Merci également à slr, je vais essayer de modifier le contrôle comme tu me l'as dis. Cela va surement être dur, je n'ai jamais fais ce genre de chose, mais c'est un bon apprentissage.

Bonne prog a tous
++
Messages postés
75
Date d'inscription
mercredi 23 octobre 2002
Statut
Membre
Dernière intervention
13 juillet 2004

C'est dans le code du controle qu'il faut aller pour créer une property Path qui renvoie le Chemin en cours,
tu peux encapsuler le code précédent dans

Public Property Get LePath() as String
'Code
End Property

A+
Afficher les 15 commentaires