Le contrôle Grille - Explorateur de fichier - CtrlGridExplorer

Thierry GASPERMENT

Ce contrôle affiche un explorateur de fichiers sous forme de grille.

Retour à la page d'accueil.

Commentez

- Titre : Le contrôle Grille - Explorateur de fichier - CtrlGridExplorer

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

- III-B. Refresh

- III-C. Clear

- III-D. NavigateBack

- IV. Evénements

- IV-A. ActiveRowChanged

- IV-B. PathChanged

- IV-C. BeforeDrawCell

- IV-D. MouseMove

- IV-E. MouseDown

- IV-F. MouseUp

- IV-G. MouseDblClick

- IV-H. KeyDown

- V. Exemple

I - Préparation du contrôle

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

Préparation de l'objet contrôle

Option Explicit

Private WithEvents oGrid As CtrlGridExplorer

Private Sub Form_Load() ' UserForm_Initialize pour Excel
Set oGrid = CreateTGLControl(CtrlGridExplorer, Me.subFormGridExplorer)
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"

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

Redessine le contrôle.

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.

Exemple de grille explorateur de fichiers

' 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