Méthode ZOrder, contrôle TextBox – Exemple
L’exemple suivant définit l’ordre de plan d’un contrôle TextBox afin que l’utilisateur puisse afficher l’intégralité de TextBox (en l’amenant à l’avant de l’ordre de plan) ou placer la zone de texte derrière d’autres contrôles (en l’envoyant à l’arrière de l’ordre de plan).
Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :
- trois contrôles TextBox nommés TextBox1, TextBox2 et TextBox3 ;
- ToggleButton nommé ToggleButton1.
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
TextBox2.ZOrder(fmTop)
'Place TextBox2 on Top of z-order
'Update ToggleButton caption to identify next state
ToggleButton1.Caption = "Send TextBox2 to back"
Else
TextBox2.ZOrder(1)
'Place TextBox2 on Bottom of z-order
'Update ToggleButton caption to identify next state
ToggleButton1.Caption = "Bring TextBox2 to front"
End If
End Sub
Private Sub UserForm_Initialize()
'Set up text boxes to show z-order in the form
TextBox1.Text = "TextBox 1"
TextBox2.Text = "TextBox 2"
TextBox3.Text = "TextBox 3"
TextBox1.Height = 40
TextBox2.Height = 40
TextBox3.Height = 40
TextBox1.Width = 60
TextBox2.Width = 60
TextBox3.Width = 60
TextBox1.Left = 10
TextBox1.Top = 10
TextBox2.Left = 25 'Overlap TextBox2 on TextBox1
TextBox2.Top = 25
TextBox3.Left = 40 'Overlap TextBox3 on TextBox2, TextBox1
TextBox3.Top = 40
ToggleButton1.Value = False
ToggleButton1.Caption = "Bring TextBox2 to Front"
ToggleButton1.Left = 10
ToggleButton1.Top = 90
ToggleButton1.Width = 50
ToggleButton1.Height = 50
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour