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


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (yomm)