AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 09 08 05:06:48
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OCX - ARBRE STYLE DE L'EXPLORATEUR WINDOWS


Information sur la source

Catégorie :Control Niveau : Expert Date de création : 07/04/2004 Vu / téléchargé: 6 202 / 1 253
Auteur : fredlynx Site perso
Ecrire un message privé
Note :
9,6 / 10 - par 5 personnes
9,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (15)
Ajouter un commentaire et/ou une note

Description

Voilà pour répondre à un post sur le forum....

Tout est dans le Zip
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de azerty25 le 08/04/2004 06:46:48

C'est encore très bien, quand Rey va le voir, il va etre content aussi de voir ça;)

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de varegue le 08/04/2004 11:35:19

j'ai tester sur une machine qui n'est pas sur un reseau...
tendance a planter ;)
mais 10/10 quand meme...

signaler à un administrateur
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

signaler à un administrateur
Commentaire de yomm le 08/04/2004 11:55: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...

signaler à un administrateur
Commentaire de Stephane le 12/04/2004 10:25:56

tres bien fait
bravo !
ca merite largement un 10

continu comme ca :p

signaler à un administrateur
Commentaire de bouv le 15/04/2004 19:50:23

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 ?

signaler à un administrateur
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 ?

signaler à un administrateur
Commentaire de slr le 15/04/2004 20:19:34

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+

signaler à un administrateur
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+

signaler à un administrateur
Commentaire de fredlynx le 15/04/2004 23:26:25 administrateur CS

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

signaler à un administrateur
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+

signaler à un administrateur
Commentaire de bouv le 16/04/2004 07:39:31

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
++

signaler à un administrateur
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

signaler à un administrateur
Commentaire de Philippe734 le 09/11/2004 22:38:17

super ocx, très utile

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,23 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.