Un exemple de Splitter dans un formulaire Access :
ftp://ftp-developpez.com/arkham46/fi...ssSplitter.zip
Mirroir HTTP
- Copiez le module de classe clSplitter dans votre application.
- Créez un formulaire qui contiendra les contrôles
- Dans ce formulaire placez deux contrôles (peuvent être des sous-formulaires
- Et une étiquette qui matérialisera le Splitter (la taille de cette étiquette défini si le Splitter est horizontal ou vertical)
- Déclarez un objet Splitter en en-tête de module du formulaire :
Private WithEvents gSplitter As ClSplitter
- Puis initialisez cet objet au chargement du formulaire :
1 2 3 4 5 6 7
|
Private Sub Form_Load()
' Objet Splitter
Set gSplitter = New ClSplitter
' Initialise le splitter avec les deux contrôles et l'étiquette Splitter
gSplitter.Initialize Me, Me.Contrôle1, Me.Contrôle2, Me.ContrôleSplitter
End Sub |
Propriétés :
- SplitPercent : Position du splitter en pourcent (50% par défaut)
- SplitTwips : Position du splitter en Twips
- MoveSplitterOnResize : Si vrai, alors le Splitter est déplacé au redimensionnement du formulaire
Evénement :
FormAfterSplitMove : Déclenché lorsque le Splitter est déplacé
Dans l'exemple on a :
- une liste de client à gauche
- un sous formulaire à droite qui contient deux sous-formulaires pour le détail du clients et ses commandes
Partager