Propriétés ScrollHeight, ScrollLeft, ScrollTop, ScrollWidth – Exemple

L’exemple suivant utilise une page d’une page MultiPage comme région de défilement. L'utilisateur peut utiliser les barres de défilement sur la page 2 de la multipage pour accéder aux éléments de la page qui ne sont pas affichés.

Pour utiliser cet exemple, copiez le code ci-dessous dans la section Déclarations d'un formulaire. Veillez à ce que le formulaire contienne une multipage appelée MultiPage1 et que chaque page de la multipage contienne un ou plusieurs contrôles.

Remarque

Chaque page d'une multipage est unique. Page1 ne présente pas de barre de défilement. Page2 présente des barres de défilement horizontale et verticale.

Private Sub UserForm_Initialize() 
 MultiPage1.Pages(1).ScrollBars = fmScrollBarsBoth 
 MultiPage1.Pages(1).KeepScrollBarsVisible = _ 
 fmScrollBarsNone 
 
 MultiPage1.Pages(1).ScrollHeight = 2 * _ 
 MultiPage1.Height 
 MultiPage1.Pages(1).ScrollWidth = 2 * _ 
 MultiPage1.Width 
 
 'Set ScrollHeight, ScrollWidth before setting 
 'ScrollLeft, ScrollTop 
 MultiPage1.Pages(1).ScrollLeft = _ 
 MultiPage1.Width / 2 
 MultiPage1.Pages(1).ScrollTop = _ 
 MultiPage1.Height / 2 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.