Developpez.com - Access
X

Choisissez d'abord la catégorieensuite la rubrique :


Le contrôle Grille - Explorateur de fichier - CtrlGridExplorer

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

Par Thierry GASPERMENT (arkham46.developpez.com/)
 

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

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

Préparation de l'objet contrôle

Option Compare Database
Option Explicit

Private WithEvents oGrid As CtrlGridExplorer

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



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



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



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



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 sous-formulaire subFormGrid.

Exemple de grille explorateur de fichiers

' Objet Grille
Private WithEvents oGrid As CtrlGridExplorer

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




               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 -