Developpez.com - Access
X

Choisissez d'abord la catégorieensuite la rubrique :


Le contrôle Arbre Explorateur de fichiers - CtrlTreeExplorer

Date de publication : 02/12/09 , Date de mise à jour : 02/12/09

Par Thierry GASPERMENT (arkham46.developpez.com/)
 

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

Retour à la page d'accueil.

8 commentaires Donner une note à l'article (5)

               Version PDF (Miroir)   Version hors-ligne (Miroir)

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 subFormTreeExplorer.

Préparation de l'objet contrôle

Option Compare Database
Option Explicit

Private WithEvents oTree As CtrlTreeExplorer

Private Sub Form_Load()
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.
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 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.
Y Single Position de la souris sur le contrôle, en twips.



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.
Y Single Position de la souris sur le contrôle, en twips.



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.
Y Single Position de la souris sur le contrôle, en twips.



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.
Y Single Position de la souris sur le contrôle, en twips.



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 subFormTreeExplorer.

Exemple d'utilisation

Option Compare Database
Option Explicit

' Objet Contrôle
Private WithEvents oTree As CtrlTreeExplorer

Private Sub Form_Load()
' 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
				




               Version PDF (Miroir)   Version hors-ligne (Miroir)

Valid XHTML 1.0 TransitionalValid CSS!

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.

Responsables bénévoles de la rubrique Access : Pierre Fauconnier - Arkham46 -