Propriétés Max, Min, Zoom, contrôles Frame, ScrollBar – Exemple

L’exemple suivant utilise la propriété Zoom pour réduire ou agrandir les informations affichées sur un formulaire, une page ou un cadre.

Cet exemple inclut un frame, une zone de textedans frame et une barre de défilement. Le niveau d'agrandissement du cadre est modifié par la propriété Zoom. L'utilisateur peut paramétrer la propriété Zoom grâce à la barre de défilement. La zone de texte permet d'afficher les effets du zoom.

Cet exemple utilise également les propriétés Max et Min pour identifier la plage de valeurs acceptables pour la barre de défilement.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

• Une étiquette nommée Label1.
• une barre de défilement appelée ScrollBar1 ;
• une deuxième étiquette appelée Label2 ;
• un cadre appelé Frame1 ;
• une zone de texte appelée TextBox1 qui se trouve dans Frame1.

Private Sub UserForm_Initialize() 
 ScrollBar1.Max = 400 
 ScrollBar1.Min = 10 
 ScrollBar1.Value = 100 
 
 Label1.Caption = "10 -----Percent of " _ 
 & "Original Size---- 400" 
 Label2.Caption = ScrollBar1.Value 
 
 Frame1.TextBox1.Text = "Enter your text here." 
 Frame1.TextBox1.MultiLine = True 
 Frame1.TextBox1.WordWrap = True 
 
 Frame1.Zoom = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Frame1.Zoom = ScrollBar1.Value 
 Label2.Caption = ScrollBar1.Value 
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.