Direxplorer explorateur / explorer de dossiers multifonctions ( vrais icons, racine paramétrable, case à cocher 3 états , me

Soyez le premier à donner votre avis sur cette source.

Vue 13 134 fois - Téléchargée 1 600 fois


Description

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

10/10 bien sur
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

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
@+
cs_Fraggy
Messages postés
95
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
2 juin 2010

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.
Vici1
Messages postés
1
Date d'inscription
lundi 25 décembre 2000
Statut
Membre
Dernière intervention
24 novembre 2008

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.
yomm
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
2
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 ;-)

@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.