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

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

Télécharger le zip

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