begin process at 2012 02 12 17:40:04
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Control

 > DIREXPLORER EXPLORATEUR / EXPLORER DE DOSSIERS MULTIFONCTIONS ( VRAIS ICONS, RACINE PARAMÉTRABLE, CASE À COCHER 3 ÉTATS , MENU CONTEXTUEL , AFFICHAGE DES FICHIERS ...)

DIREXPLORER EXPLORATEUR / EXPLORER DE DOSSIERS MULTIFONCTIONS ( VRAIS ICONS, RACINE PARAMÉTRABLE, CASE À COCHER 3 ÉTATS , MENU CONTEXTUEL , AFFICHAGE DES FICHIERS ...)


 Information sur la source

Note :
9,6 / 10 - par 5 personnes
9,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Source .NET ( DotNet ) Classé sous :explorateur, repertoire, dossier, direxplorer, yomm Niveau :Expert Date de création :05/04/2006 Date de mise à jour :18/04/2007 14:59:54 Vu / téléchargé :10 542 / 1 427
Auteur : yomm

Ecrire un message privé
Site perso
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Développé sous VB 2005 Express Edition , ce nouveau DirExplorer reprend les grandes lignes de son petit frère en VB6 à savoir:
- arborescence des répertoires avec les vrais icônes
- choix de la racine (bureau, poste de travail...)
- possibilité d'ouvrir un répertoire en passant le chemin (ex : "c:\program files")

mais il inclut une nouvelle fonction et pas n'importe laquelle:
- mise à jour automatique des sous-répertoires s'ils sont modifiés par une appli extérieure (sous-répertoire ajouté, supprimé, renommé)

Note du 18/04/2007 :
et maintenant il fait encore plus fort ;-)
- ajout d'un raccourci perso avec icon perso sous la racine
- ajout de checkbox 3 états
- ajout des fichiers du répertoire
- navigation dans les branches via une énumération
- récupération des propriétés :
    * Text
    * Path
    * Checked
    * CheckState
    * Parent
    * Tag (ça c'est pour mettre un object pour ceux qui veulent)
    * IsExpanded
    * Nodes (ça c'est une énumération pour naviguer dans l'arborescence)
- deux méthodes:
    * Expand et Collapse

Source

  • '-------------------------------------------------------------------------------------------------------------
  • 'un exemple pour récupérer toutes les branches cochées
  • '-------------------------------------------------------------------------------------------------------------
  • Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  • MsgForNodeChecked(DirExplorer1.Root)
  • End Sub
  • Private Sub MsgForNodeChecked(ByVal Node As DirExplorerOCX.DirExplorerNode)
  • Dim NodeFille As DirExplorerOCX.DirExplorerNode
  • For Each NodeFille In Node.Nodes
  • If NodeFille.IsExpanded = True Then
  • MsgForNodeChecked(NodeFille)
  • ElseIf NodeFille.CheckState = CheckState.Checked Then
  • MsgBox(NodeFille.Text)
  • End If
  • Next
  • If Node.CheckState = CheckState.Checked Then MsgBox(Node.Text)
  • End Sub
  • '-------------------------------------------------------------------------------------------------------------
  • 'exemple d'utilisation de certaines propriétés
  • '-------------------------------------------------------------------------------------------------------------
  • DirExplorer1.CheckBoxes = True
  • DirExplorer1.UseCustomIcon = True
  • DirExplorer1.UseContextMenu = True
  • DirExplorer1.MyShortCutPath = "c:\"
  • Var = DirExplorer1.SelectedItem.Text
  • DirExplorer1.TreeRoot = DirExplorerOCX.DirExplorer.enumTreeRoot.PosteDeTravail
  • DirExplorer1.SelectedItem.Checked = True 
'-------------------------------------------------------------------------------------------------------------
'un exemple pour récupérer toutes les branches cochées
'-------------------------------------------------------------------------------------------------------------
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    MsgForNodeChecked(DirExplorer1.Root)
End Sub

Private Sub MsgForNodeChecked(ByVal Node As DirExplorerOCX.DirExplorerNode)

    Dim NodeFille As DirExplorerOCX.DirExplorerNode

    For Each NodeFille In Node.Nodes
        If NodeFille.IsExpanded = True Then
            MsgForNodeChecked(NodeFille)
        ElseIf NodeFille.CheckState = CheckState.Checked Then
            MsgBox(NodeFille.Text)
        End If
    Next

    If Node.CheckState = CheckState.Checked Then MsgBox(Node.Text)

End Sub


'-------------------------------------------------------------------------------------------------------------
'exemple d'utilisation de certaines propriétés
'-------------------------------------------------------------------------------------------------------------
DirExplorer1.CheckBoxes = True

DirExplorer1.UseCustomIcon = True
DirExplorer1.UseContextMenu = True
DirExplorer1.MyShortCutPath = "c:\"

Var = DirExplorer1.SelectedItem.Text

DirExplorer1.TreeRoot = DirExplorerOCX.DirExplorer.enumTreeRoot.PosteDeTravail

DirExplorer1.SelectedItem.Checked = True

 Conclusion

Fonctionnalité en tête (et oui je sais pas encore si elles seront toutes implémentées)
- intéraction avec un FileExplorer (listview de fichiers) (fileexplorer non développé pour le moment)
- menu contextuel (fonctionnalité disparue mais que je vais développer avec certitude)  << Note du 18/04/2007 : c'est fait
- possibilité de déplacer les répertoires (couper/coller)
- possibilité de créé une racine MyShortcutDir avant la racine principale pointant vers un dossier particulier (je viens d'avoir l'idée alors je sais pas pour quand ce sera ;-) )   << Note du 18/04/2007 : c'est fait

Toutes ces fonctionnalités seront bien évidemment activable ou non... << note du 18/04/2007 : pour celles qui sont implémentées ça l'est

Enfin : merci encore à Renfield qui m'avait permi de réaliser la version VB6 sans laquelle je n'aurais jamais fait celle-ci

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

05 avril 2006 17:43:23 :
- ajout d'un test pour vérifier la validité d'un chemin avant de le mettre en surveillance de modification
07 avril 2006 21:28:37 :
- j'avais promis de nouvelles fonctions... voici la première: gestion du menu contextuel ajouté... pour l'activer, définissez UseContextMenu à True et hop...le tour est joué
08 avril 2006 15:44:56 :
- ecnore une nouvelle fonction: MyShortCutPath : permet de définir un raccourci vers un dossier en premier item enfant de la racine... MyShortCutIcon : permet de définir un icon perso pour MyShortCut UseCustomIcon : permet de dire si on utilise ou non l'icon perso pour MuShortCut... -J'ai également ajouté un projet exe afin de pouvoir tester plus facilement le contrôle car maintenant certaine propriété ne sont plus accessible au moment du design (c'est propriétés sont : Path (pour ouvrir une arborescence) et MyShortCutPath (pour ajouter un raccourci)
10 avril 2006 11:28:30 :
- correction : petit problème si le poste de travail ne s'appelle pas comme dans le fichier shell32.dll...le test est maintenant fait avec le nom réel de la station de travail ---------------------------------------------------------------------------------------------------------- If LCase(Node.Text) = LCase(GetResourceString("Shell32.dll", IDS_SHELL32.MYCOMPUTER)) Then devient : If CType(Node.Tag, ClsDirectory).Path = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" Then ----------------------------------------------------------------------------------------------------------
18 avril 2007 14:59:54 :
Note du 18/04/2007 : et maintenant il fait encore plus fort ;-) - ajout d'un raccourci perso avec icon perso sous la racine - ajout de checkbox 3 états - ajout des fichiers du répertoire - navigation dans les branches via une énumération - récupération des propriétés : * Text * Path * Checked * CheckState * Parent * Tag (ça c'est pour mettre un object pour ceux qui veulent) * IsExpanded * Nodes (ça c'est une énumération pour naviguer dans l'arborescence) - deux méthodes: * Expand et Collapse

 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) YOMMEXPLORER.NET EXPLORER / EXPLORATEUR DE DOSSIERS RÉPERTOI...
Source avec Zip Source avec une capture YOMMEXPLOREROCX POUR CE QUI VEULENT UN VRAI EXPLORATEUR WIND...
Source avec Zip Source avec une capture POUR CEUX QUI PRENNENT LES LISTVIEW POUR DES LISTBOX
Source avec Zip Source avec une capture YOMMEXPLORER : OUBLIEZ LE DIRLISTBOX ET LE FILELISTBOX
Source avec Zip Source avec une capture TVEXPLORER : ARBORESCENCE DES RÉPERTOIRES LE DIREXPLORER REV...
Toutes les sources de yomm

 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007
Toutes les sources de la catégorie Control

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) YOMMEXPLORER AUGMENTÉ par erdna
Source avec Zip Source avec une capture EXPLORATEUR DE DOSSIER EN VB6 par TomIlliev
Source avec Zip Source avec une capture Source .NET (Dotnet) YOMMEXPLORER.NET EXPLORER / EXPLORATEUR DE DOSSIERS RÉPERTOI... par yomm
Source avec Zip Source avec une capture YOMMEXPLOREROCX POUR CE QUI VEULENT UN VRAI EXPLORATEUR WIND... par yomm
Source avec Zip Source avec une capture CONTRÔLE DIRTREEVIEW ( AFFICHAGE DES DOSSIERS DANS UN TREEVI... par Alain Proviste

Commentaires et avis

Commentaire de Dalida le 05/04/2006 16:06:28

salut,

je l'ai juste testé et je ne connaissais pas la version précédente mais cela me plait beaucoup (9/10) !

j'ai juste levé une erreur en essayant de parcourir le réseau :

| L'exception System.ArgumentException n'a pas été gérée
|   Message="Le nom de répertoire EntireNetwork n'est pas valide."
|   Source="System"
|   StackTrace:
|        à System.IO.FileSystemWatcher.set_Path()
|        à DirExplorerOCX.DirExplorer.TView_BeforeExpand()
|        dans DirExplorer.vb:ligne 427
    

Commentaire de yomm le 05/04/2006 17:37:11

>>Dalida (ça fait bizarre)

Désolé de cette erreur j'ai en effet compris d'où vient le problème, je corrige de suite

Commentaire de yomm le 05/04/2006 17:44:55

et voiloù c'est corrigé...

PS:
>>Dalida
au fait, merci pour la note ;-)

Commentaire de Dalida le 05/04/2006 18:09:15

dans ton source je n'ai pas trouvé la trace du formulaire de test. il est caché ou ?

par ailleurs, il y a une question en cours à laquelle j'ai répondu en citant ce source. peut-être pourras-tu éclairer Thefada au sujet du FileSystemWatcher.
le post est ici :
http://www.vbfrance.com/forum.v2.aspx?ID=706966

(bizarre, comment ça bizarre ? il est très bien mon pseudo du show biz !)

;o)

Commentaire de yomm le 05/04/2006 18:18:35

>> Dalida
1) je voulais simplement dire ke cela me faisait bizzare de parler à "Dalida" ;-)

2) Qu'entends tu par "formulaire de test"?

3) je regarde de suite le poste de Thefada

Commentaire de Dalida le 05/04/2006 18:36:15

ben le formulaire qui s'affiche à l'execution de ton projet dans VB Express. comme je ne trouve pas le code correspondant je soupçonne une fonction de l'EDI, inconnue de moi.

un screenshot à :
http://img467.imageshack.us/img467/9559/direxplorer8wr.jpg

Commentaire de yomm le 05/04/2006 19:07:03

tu parles de l'interface pour tester le DirExplorer??? j'ai rien fait de particulier...c'est surement lié au type du projet...vu que vb express détecte un usercontrol il doit automatiquement créer l'environnement je suppose...

Commentaire de yomm le 08/04/2006 15:48:21

De nouvelles foncions ont été ajoutées...lisez les commentaires de mise à jour pour infos et regardez le screenshot...
(PS pour ceux k'on déjà vu le screenshot il semblerait k'un ctrl+F5 peut être nécessaire pour actualiser...en tout cas moi j'en ai eu besoin ;-)

Bon dev @ tous

Commentaire de romagny13 le 10/04/2006 13:30:23

POooooooo mallll !!

Commentaire de samu_ham le 24/06/2006 13:44:33

salut

je voudrais que vous m'aidier sur mon projet explorer inclus un checkbox quand jecoche le check il crée une signature numerique dans accéss tu peut me donner le code pour intégrer le chéckbox dans ton explorer

cordialement

Commentaire de yomm le 16/04/2007 10:46:26

>> SAMU_HAM

Salut,

je vais bientot inclure la gestion de checkbox dans le contrôle.

Commentaire de yomm le 18/04/2007 15:04:42

>> samu_ham

Ca y est j'ai mis le checkbox et un exemple pour récupérer les branches qui sont cochées.

@+ et bon Dev

Commentaire de lo4 le 07/05/2007 22:56:47

Salut
merci pour cet excellent travail
10/10

Commentaire de yomm le 02/06/2007 16:17:53

Salut,

pour ce qui avaient aimé cela, venez voir ça :
http://www.vbfrance.com/code.aspx?ID=42960

le DirExplorer légèrement modifié ;-) avec un FileExplorer le tout dans un YommExplorer ;-)

@+

Commentaire de Vici1 le 24/11/2008 01:27:46 9/10

Super, c'est exactement ce que je cherchais. Seul bémol, l'arborescence du dossier réseau n'est pas systématiquement trouvé. De temps en temps il affiche un dossier vide alors qu'il y a des dossiers partagés en réseau... Mais c'esqt pas bien grave sinon, superbe travail et code propre.

Commentaire de Fraggy le 28/09/2009 15:24:25

Salut Yomm,

Moi aussi je connais le petit frère version VB6 (que j'utilise toujours d'ailleurs),
mais je tente de passer doucement vers VB2008, hélas ta source à été conçue pour VB2005 et malgré l'outil de transposition, il y a des erreurs, qui sont encore trop compliquée pour moi, à gérer sous .NET

Comme ton ancienne version était très stable, et que visiblement celle-ci semble l'être aussi, ma question serait de savoir si tu aurais l'extrême gentillesse de repasser ton source dans la moulinette pour qu'il fonctionne sous VB2008 ?

D'avance merci,
Fraggy.

Commentaire de violent_ken le 28/02/2010 02:19:53

Salut,

excellent travail !

Mais quelle est la licence de ce code ? Sans infos de licence on pourrait penser que c'est du public domain, mais pourrais-tu confirmer ? Si ce n'est pas public domain, c'est compatible GPL3 ?

Merci
@+

Commentaire de violent_ken le 28/02/2010 02:20:37 10/10

10/10 bien sur

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Dirlist d'un dossier précis [ par Darkukai ] Bonjour à tousJ'aimerais faire un petit explorateur qui n'explore qu'un dossier que je lui précise par avancegenre j'ai un dossier babar qui contient copier un repertoire (dossier) sur un ftp [ par AlfaDemeter ] Salut, Hum je sais pas si c'est ici que je dois m'adresser fin bon je pense que si. J'aimerais savoir comment copier un r&#233;pertoire situer sur mon Explorateur windows [ par techouet ] Salut tout le monde!Je recherche un moyen pour sélectionner un dossier à l'aide d'un exploratuer du type windows.En effet la commande GetOpenFileName recuperer le nom d'un dossier [ par igor ] je voudrait par l'intermediaire d'un dirlistbox recuperer le nom de tous les dossiers se touvant a un chemin d'acces precis (ex: a:\users\)quand le fo Un explorateur de dossier/fichier dans le meme controle [ par PaTaTe ] Je me trouve devant un probleme car je cherche un controle qui puisse etre un explorateur de dossier mais aussi de fichier dans le meme controle.Exemp Comment créer un explorateur de dossier [ par Scythist ] je voudrais pouvoir faire un "enregistrer sous" mais j'ai besoin de savoir comment, en cliquant sur un dossier,&nbsp; son contenu s'afficheScythist Ouvrir dossier courant [ par qtek2020 ] Bonsoir a tous je cherche 2 choses 1) ouvrir le repertoire courant dans un menu (App.Path) (dans le menu je clic sur "ouvrir le repertoire" et il ouvr chemain du dossier active de l'explorateur vb6 (urgent) [ par espoir514 ] salut je cherche le dossier active de l'explorateur avec vb6 (pas le dossier courant de exe)?merci [Déplacé .Net --> VBA] Création petit programme excel / explorateur de fichier et open file [ par salamandralex ] Bonjour à tous, je suis débutant en VBA et je recherche de l'aide pour comprendre quelques petits morceaux de codes que j'ai pu parcourir sur le sit


Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Beautiful woman in a bikini meditating on the beach
Photo Photo aérienne de Saintes Maries de la Mer 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,480 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)