I. Préparation du contrôle▲
Pour un formulaire qui contient un sous-formulaire ou cadre subFormTreeExplorer.
Option Explicit
Private WithEvents oTree As CtrlTreeExplorer
Private Sub Form_Load() ' UserForm_Initialize pour Excel
Set oTree = CreateTGLControl(CtrlTreeExplorer, Me.subFormTreeExplorer)
End SubII. 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.
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