Partager via

Activer et verrouiller une zone de texte à partir d’une entrée utilisateur

  • Article

L’exemple suivant illustre les propriétés Enabled et Locked et comment elles se complètent. Cet exemple montre comment exposer chaque propriété indépendamment à l’aide d’un contrôle CheckBox, de sorte que vous observez les paramètres individuellement et combinés. Cet exemple inclut également un deuxième TextBox pour vous permettre de copier et coller des informations entre les contrôles TextBox et de vérifier les activités prises en charge par les paramètres de ces propriétés.

Note Vous pouvez copier la sélection dans le Presse-papiers à l’aide de CTRL+C et la coller à l’aide de CTRL+V.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Assurez-vous que le formulaire contient les éléments suivants :

  • un contrôle TextBox nommé TextBox1 ;

  • deux contrôles CheckBox nommés CheckBox1 et CheckBox2 ;

  • un deuxième contrôle TextBox nommé TextBox2.

Dim TextBox1 
Dim TextBox2 
Dim CheckBox1 
Dim CheckBox2 
 
Sub CheckBox1_Click() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Sub CheckBox2_Click() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox2") 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox1") 
 Set CheckBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox2") 
 
 TextBox1.Text = "TextBox1" 
 TextBox1.Enabled = True 
 TextBox1.Locked = False 
 
 CheckBox1.Caption = "Enabled" 
 CheckBox1.Value = True 
 
 CheckBox2.Caption = "Locked" 
 CheckBox2.Value = False 
 
 TextBox2.Text = "TextBox2" 
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.