I. Préparation du contrôle▲
Pour un formulaire qui contient un sous-formulaire ou cadre subFormGridExplorer.
Option Explicit
Private WithEvents oGrid As CtrlGridExplorer
Private Sub Form_Load() ' UserForm_Initialize pour Excel
Set oGrid = CreateTGLControl(CtrlGridExplorer, Me.subFormGridExplorer)
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" |
| FilesOnly | X | X | Boolean | Si Vrai, seuls les fichiers sont affichés. |
| OpenFileOnDblClick | X | X | Boolean | Si Vrai, les fichiers sont ouverts par double-clic. |
| NavigateOnDblClick | X | X | Boolean | Si Vrai, navigue par double-clic sur les disques ou dossiers. |
| DisplayMyDocuments | X | X | Boolean | Si Vrai (par défaut), le dossier Mes documents est affiché. |
| DisplayMyPictures | X | X | Boolean | Si Vrai (par défaut), le dossier 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. |
| GridObject | X | CtrlGrid | Objet Grille utilisé pour gérer l'explorateur. | |
| LinkedTree | X | X | SubForm contenant un objet CtrlTreeExplorer |
Arbre lié à l'explorateur. Pour Excel, passez directement l’objet CtrlTreeExplorer. |
| Path | X | X | String | Chemin courant. Les fichiers et dossiers de ce chemin sont affichés dans la grille. 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. RowAdd▲
Ajoute une ligne à la grille à partir de son chemin.
| Paramètre | Type | Explication |
|---|---|---|
| pPath | String | Chemin de l'élément. |
| 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 | CtrlGridRow | Ligne ajoutée. |
III-B. Refresh▲
III-C. Clear▲
Vide la grille.
Utilisez ensuite Refresh pour mettre à jour l'affichage.
III-D. NavigateBack▲
Navigue vers le dossier parent.
Utilisez ensuite Refresh pour mettre à jour l'affichage.
IV. Evénements▲
IV-A. ActiveRowChanged▲
S'exécute sur changement de la ligne active.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRow | Ligne active. Nothing si aucune ligne n'est active. |
IV-B. PathChanged▲
S'exécute sur changement du chemin.
| Paramètre | Type | Explication |
|---|---|---|
| pPath | String | Nouveau chemin. |
IV-C. BeforeDrawCell▲
S'exécute avant dessin d'une cellule de la grille.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRowBeforeDraw | Ligne. |
| pColumn | CtrlGridColumnBeforeDraw | Colonne. |
Les modifications apportées à la ligne ou à la colonne ne sont pas définitives.
Elles ne sont valables que le temps du dessin de cette cellule.
IV-D. MouseMove▲
S'exécute sur déplacement de la souris sur le contrôle.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRow | Ligne survolée par la souris. |
| pColumn | CtrlGridColumn | Colonne survolée par la souris. |
| 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-E. MouseDown▲
S'exécute sur souris appuyée sur le contrôle.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRow | Ligne survolée par la souris. |
| pColumn | CtrlGridColumn | Colonne survolée par la souris. |
| 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. MouseUp▲
S'exécute sur souris relâchée sur le contrôle.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRow | Ligne survolée par la souris. |
| pColumn | CtrlGridColumn | Colonne survolée par la souris. |
| 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-G. MouseDblClick▲
S'exécute sur double-clic de la souris sur le contrôle.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRow | Ligne survolée par la souris. |
| pColumn | CtrlGridColumn | Colonne survolée par la souris. |
| 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-H. KeyDown▲
S'exécute sur touche appuyée sur le contrôle.
| Paramètre | Type | Explication |
|---|---|---|
| pRow | CtrlGridRow | Ligne survolée par la souris. |
| pColumn | CtrlGridColumn | Colonne survolée par la souris. |
| 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 cadre ou un sous-formulaire subFormGrid.
' Objet Grille
Private WithEvents oGrid As CtrlGridExplorer
Private Sub Form_Load() ' UserForm_Initialize pour Excel
' Initialisation du contrôle
Set oGrid = CreateTGLControl(CtrlGridExplorer, Me.subFormGrid)
' Chemin = disques de l'ordinateur
oGrid.Path = ""
' Redessine le contrôle
oGrid.Refresh
End Sub
Private Sub oGrid_ActiveRowChanged(pRow As LibTGL.CtrlGridRow)
' Affiche le texte de l'élément actif dans la barre d'état
If pRow Is Nothing Then
SysCmd acSysCmdClearStatus
Else
SysCmd acSysCmdSetStatus, "Sélection de " & pRow.Value("Path")
End If
End Sub