Le contrôle Arbre Explorateur de fichiers - CtrlTreeExplorer

Thierry GASPERMENT

Ce contrôle affiche les fichiers et dossiers de l'ordinateur sous forme d'arbre.

Retour à la page d'accueil.

Commentez

- Titre : Le contrôle Arbre Explorateur de fichiers - CtrlTreeExplorer

- Auteur : Thierry GASPERMENT

- Parution : 2 décembre 2009

- Mise à jour : 18 mai 2018

- Licence : Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright ® 2009 Thierry GASPERMENT. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts. Droits de diffusion permanents accordés à Developpez LLC.

Sommaire

- I. Préparation du contrôle

- II. Propriétés

- III. Méthodes

- III-A. ElementAdd

- III-B. Refresh

- III-C. Clear

- III-D. PositionOnPath

- IV. Evénements

- IV-A. ActiveElementChanged

- IV-B. ExpandElement

- IV-C. CollapseElement

- IV-D. BeforeDraw

- IV-E. MouseMove

- IV-F. MouseDown

- IV-G. MouseUp

- IV-H. MouseDblClick

- IV-I. KeyDown

- V. Exemple

I - Préparation du contrôle

Pour un formulaire qui contient un sous-formulaire ou cadre subFormTreeExplorer.

Préparation de l'objet contrôle

Option Explicit

Private WithEvents oTree As CtrlTreeExplorer

Private Sub Form_Load() ' UserForm_Initialize pour Excel
Set oTree = CreateTGLControl(CtrlTreeExplorer, Me.subFormTreeExplorer)
End Sub

II - Propriétés

La colonne Get indique si la propriété est disponible en lecture.

La colonne Set indique si la propriété est disponible en écriture.

Propriété

Get

Let

Type

Explication

Extensions

X

X

String

Liste des extensions à afficher.
Exemple : "jpg,png,bmp,gif"

FoldersOnly

X

X

Boolean

Si Vrai, seuls les dossiers sont affichés.

DisplayMyDocuments

X

X

Boolean

Si Vrai (par défaut), le répertoire Mes documents est affiché.

DisplayMyPictures

X

X

Boolean

Si Vrai (par défaut), le répertoire Mes images est affiché.

SortBy

X

X

ETGLExplorerSortOrder

Ordre de tri à appliquer (ascendant ou descendant).

SortOrder

X

X

ETGLExplorerSortBy

Type de tri à appliquer à l'explorateur.

TreeObject

X

CtrlTree

Objet Arbre utilisé pour gérer l'explorateur.

LinkedList

X

X

SubForm contenant un objet CtrlImageListExplorer ou CtrlGridExplorer

Grille ou Liste d'images liée à l'explorateur.

Pour Excel, passez directement l’objet CtrlImageListExplorer ou CtrlGridExplorer.

Path

X

X

String

Chemin courant.
Les fichiers et dossiers de ce chemin sont affichés dans l'arbre.
Définissez un chemin vide ("") pour afficher les disques de l'ordinateur.
Utilisez ensuite Refresh pour mettre à jour l'affichage.

III - Méthodes

III-A - ElementAdd

Ajoute un élément à l'explorateur à partir de son chemin.

Paramètre

Type

Explication

pPath

String

Chemin de l'élément.

pParentKey

String

Identifiant de l'élément parent.
Passez une chaîne vide pour ajout un élément racine.

pType

ETGLExplorerElementType

Type de l'élément à ajouter.
N'utilisez pas ce paramètre si vous ne connaissez pas le type d'élément.

Valeur renvoyée

CtrlTreeElement

Elément ajouté.

III-B - Refresh

Redessine le contrôle.

Paramètre

Type

Explication

pRepaint

Boolean

Si Faux, le contrôle n'est pas redessiné à l'écran.

III-C - Clear

Vide l'arbre.

Utilisez ensuite Refresh pour mettre à jour l'affichage.

III-D - PositionOnPath

Positionne la barre de défilement de l'arbre en fonction d'un chemin.

Paramètre

Type

Explication

pPath

String

Chemin de l'élément recherché.

IV - Evénements

IV-A - ActiveElementChanged

S'exécute sur changement de l'élément actif.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément actif.
Nothing si aucun élément n'est actif.

IV-B - ExpandElement

S'exécute sur ouverture d'un noeud.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément actif.
Nothing si aucun élément n'est actif.

IV-C - CollapseElement

S'exécute sur fermeture d'un noeud.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément actif.
Nothing si aucun élément n'est actif.

IV-D - BeforeDraw

S'exécute avant dessin d'un élément.

Paramètre

Type

Explication

pElement

CtrlTreeElementBeforeDraw

Elément à dessiner.

Les modifications apportées à l'élément ne sont pas définitives.
Elles ne sont valables que le temps du dessin de cet élément.

IV-E - MouseMove

S'exécute sur déplacement de la souris sur le contrôle.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément survolé par la souris.
Nothing si aucun élément n'est survolé.

Button

Integer

Bouton de la souris appuyé.

Shift

Integer

Etat des touches Shift, Alt et Ctrl.

X

Single

Position de la souris sur le contrôle, en twips ou points.

Y

Single

Position de la souris sur le contrôle, en twips ou points.

IV-F - MouseDown

S'exécute sur souris appuyée sur le contrôle.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément survolé par la souris.
Nothing si aucun élément n'est survolé.

Button

Integer

Bouton de la souris appuyé.

Shift

Integer

Etat des touches Shift, Alt et Ctrl.

X

Single

Position de la souris sur le contrôle, en twips ou points.

Y

Single

Position de la souris sur le contrôle, en twips ou points.

IV-G - MouseUp

S'exécute sur souris relâchée sur le contrôle.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément survolé par la souris.
Nothing si aucun élément n'est survolé.

Button

Integer

Bouton de la souris relâché.

Shift

Integer

Etat des touches Shift, Alt et Ctrl.

X

Single

Position de la souris sur le contrôle, en twips ou points.

Y

Single

Position de la souris sur le contrôle, en twips ou points.

IV-H - MouseDblClick

S'exécute sur double-clic de la souris sur le contrôle.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément survolé par la souris.
Nothing si aucun élément n'est survolé.

Button

Integer

Bouton de la souris appuyé.

Shift

Integer

Etat des touches Shift, Alt et Ctrl.

X

Single

Position de la souris sur le contrôle, en twips ou points.

Y

Single

Position de la souris sur le contrôle, en twips ou points.

IV-I - KeyDown

S'exécute sur touche appuyée sur le contrôle.

Paramètre

Type

Explication

pElement

CtrlTreeElement

Elément survolé par la souris.
Nothing si aucun élément n'est survolé.

KeyCode

Integer

Code de la touche appuyée.

Shift

Integer

Etat des touches Shift, Alt et Ctrl.

V - Exemple

Pour un formulaire qui contient un sous-formulaire ou cadre subFormTreeExplorer.

Exemple d'utilisation

Option Explicit

' Objet Contrôle
Private WithEvents oTree As CtrlTreeExplorer

Private Sub Form_Load() ' UserForm_Initialize pour Excel
' Initialisation du contrôle
Set oTree = CreateTGLControl(CtrlTreeExplorer, Me.subFormTreeExplorer)
' Couleur de fond
oTree.TreeObject.BackColor = RGB(255, 240, 240)
' Couleur du texte
oTree.TreeObject.FontColor = RGB(50, 50, 200)
' Tri par date
oTree.SortBy = TGLExplorerSortByDate
' Chemin vide => affichage des disques
oTree.Path = ""
' Redessine le contrôle
oTree.Refresh
End Sub