cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007
-
8 avril 2004 à 06:46
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 2015
-
9 nov. 2004 à 22:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 9 nov. 2004 à 22:38
super ocx, très utile
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 16 avril 2004 à 09:14
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
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 16 avril 2004 à 07:39
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
++
slr
Messages postés75Date d'inscriptionmercredi 23 octobre 2002StatutMembreDernière intervention13 juillet 2004 15 avril 2004 à 23:27
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+
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 15 avril 2004 à 23:26
en fait on peut juste le recup lors de l'événement :
Private Sub Lynx_Arbre1_SelectFolder(Dossier As String)
End Sub
Dossier <= chemin sélectionné ...
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 15 avril 2004 à 21:03
Désolé,
Je risque de paraître stupide, mais je n'ai pas de ".Nodes"
Une explication ou une autre méthode svp.
A+
slr
Messages postés75Date d'inscriptionmercredi 23 octobre 2002StatutMembreDernière intervention13 juillet 2004 15 avril 2004 à 20:19
tu balayes la liste des Nodes :
for i=1 to Arbre.Nodes.Count
if Arbre.Nodes(i).Selected=True Then
LePath=Arbre.Nodes(i).FullPath
end if
next i
par exemple.
A+
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 15 avril 2004 à 19:59
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 ?
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 15 avril 2004 à 19:50
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 ?
cs_Stephane
Messages postés550Date d'inscriptionvendredi 5 janvier 2001StatutMembreDernière intervention23 septembre 2006 12 avril 2004 à 10:25
tres bien fait
bravo !
ca merite largement un 10
continu comme ca :p
yomm
Messages postés515Date d'inscriptiondimanche 17 février 2002StatutMembreDernière intervention10 mars 20083 8 avril 2004 à 11:55
intéressant au niveau des possibilités de style...font...couleur...taille..checkbox.... l'idée est sympa, domage que les lecteurs CD ne possède pa leur véritable icones...ainsi que le répertoire MesDoc...domage aussi ce défilement au coup par coup...pour le chargement des sous-rep...l'idée est bien mais domage aussi que pour cela l'ocx fasse 204ko au final.....je mets 8/10 pour l'intéret des modifications d'apparence du Treeview dans ce contexte...
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 8 avril 2004 à 11:38
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
varegue
Messages postés33Date d'inscriptionmercredi 28 juillet 2010StatutMembreDernière intervention28 juillet 2010 8 avril 2004 à 11:35
j'ai tester sur une machine qui n'est pas sur un reseau...
tendance a planter ;)
mais 10/10 quand meme...
slr
Messages postés75Date d'inscriptionmercredi 23 octobre 2002StatutMembreDernière intervention13 juillet 2004 8 avril 2004 à 09:45
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.
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 8 avril 2004 à 06:46
C'est encore très bien, quand Rey va le voir, il va etre content aussi de voir ça;)
9 nov. 2004 à 22:38
16 avril 2004 à 09:14
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
16 avril 2004 à 07:39
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
++
15 avril 2004 à 23:27
tu peux encapsuler le code précédent dans
Public Property Get LePath() as String
'Code
End Property
A+
15 avril 2004 à 23:26
Private Sub Lynx_Arbre1_SelectFolder(Dossier As String)
End Sub
Dossier <= chemin sélectionné ...
15 avril 2004 à 21:03
Je risque de paraître stupide, mais je n'ai pas de ".Nodes"
Une explication ou une autre méthode svp.
A+
15 avril 2004 à 20:19
for i=1 to Arbre.Nodes.Count
if Arbre.Nodes(i).Selected=True Then
LePath=Arbre.Nodes(i).FullPath
end if
next i
par exemple.
A+
15 avril 2004 à 19:59
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 ?
15 avril 2004 à 19:50
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 ?
12 avril 2004 à 10:25
bravo !
ca merite largement un 10
continu comme ca :p
8 avril 2004 à 11:55
8 avril 2004 à 11:38
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
8 avril 2004 à 11:35
tendance a planter ;)
mais 10/10 quand meme...
8 avril 2004 à 09:45
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.
8 avril 2004 à 06:46