OCX - ARBRE STYLE DE L'EXPLORATEUR WINDOWS

Commentaire de slr le 08/04/2004 09:45:19

c'est nickel, le code n'est pas simple, mais je vais essayer de me le personnaliser ==> 10/10.

J'aimerais en fait pouvoir rajouter des raccourcis, créer un noeud (librairies) à la racine pour y ajouter des dossiers ou des objets à l'intérieur, est-ce que tu crois que cela peut se faire facilement ?

en tout cas, bravo pour ce code très complet.

Commentaire de fredlynx le 08/04/2004 11:38:54 administrateur CS

Tendance à Planter ? C'est à Dire !

Chez moi pas de réseau et ça ne plante pas !?

Peux tu m'en dire + Stp

NOTA: Il se peut que la recherche lorsqu'on clique sur l'icone Réseau soit longue ... comme dans l'explorer d'ailleurs il me semble

Commentaire de Stephane le 12/04/2004 10:25:56

tres bien fait
bravo !
ca merite largement un 10

continu comme ca :p

Commentaire de bouv le 15/04/2004 19:59:47

Salut,
c'est du très beau boulot. 10/10

Petite question. Je n'ai pas trouver comment récupérer le chemin du repertoire sélectionné (ex: Lynx_Arbre1.path).

Peut tu me renseigner à ce sujet ?

Commentaire de bouv le 15/04/2004 21:03:06

Désolé,

Je risque de paraître stupide, mais je n'ai  pas de ".Nodes"

Une explication ou une autre méthode svp.

A+

Commentaire de slr le 15/04/2004 23:27:01

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+

Commentaire de fredlynx le 16/04/2004 09:14:31 administrateur CS

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