Partager via

Contrôler le comportement de sélection et faire glisser le comportement lors de l’entrée d’une zone de texte

  • Article

L’exemple suivant utilise les propriétés DragBehavior et EnterFieldBehavior pour illustrer les différents effets que vous pouvez fournir lors de l’entrée d’un contrôle et lorsque vous faites glisser des informations d’un contrôle vers un autre.

L’exemple utilise deux contrôles TextBox . Définissez DragBehavior et EnterFieldBehavior pour chaque contrôle et examinez les effets du déplacement d'un contrôle à l'autre.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

  • un contrôle TextBox nommé TextBox1 ;

  • Deux contrôles ToggleButton nommés ToggleButton1 et ToggleButton2. Ces contrôles sont associés à TextBox1.

  • un contrôle TextBox nommé TextBox2 ;

  • Deux contrôles ToggleButton nommés ToggleButton3 et ToggleButton4. Ces contrôles sont associés à TextBox2.

Dim TextBox1, TextBox2 
Dim ToggleButton1, ToggleButton2, ToggleButton3, ToggleButton4 
 
Sub Item_Open() 
 set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") 
 set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 set ToggleButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton2") 
 set ToggleButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton3") 
 set ToggleButton4 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton4") 
 
 TextBox1.Text = "Once upon a time in a land ...," 
 ToggleButton1.Value = True 
 ToggleButton1.Caption = "Drag Enabled" 
 ToggleButton1.WordWrap = True 
 TextBox1.DragBehavior = 1 'fmDragBehaviorEnabled 
 
 ToggleButton2.Value = True 
 ToggleButton2.Caption = "Recall Selection" 
 ToggleButton2.WordWrap = True 
 TextBox1.EnterFieldBehavior = 1 'fmEnterFieldBehaviorRecallSelection 
 
 TextBox2.Text = "XXX, YYYY" 
 ToggleButton3.Value = False 
 ToggleButton3.Caption = "Drag Disabled" 
 ToggleButton3.WordWrap = True 
 TextBox2.DragBehavior = 0 'fmDragBehaviorDisabled 
 
 ToggleButton4.Value = False 
 ToggleButton4.Caption = "Select All" 
 ToggleButton4.WordWrap = True 
 TextBox2.EnterFieldBehavior = 0 'fmEnterFieldBehaviorSelectAll 
End Sub 
 
Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Drag Enabled" 
 TextBox1.DragBehavior = 1 'fmDragBehaviorEnabled 
 Else 
 ToggleButton1.Caption = "Drag Disabled" 
 TextBox1.DragBehavior = 0 'fmDragBehaviorDisabled 
 End If 
End Sub 
 
Sub ToggleButton2_Click() 
 If ToggleButton2.Value = True Then 
 ToggleButton2.Caption = "Recall Selection" 
 TextBox1.EnterFieldBehavior = 1 'fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton2.Caption = "Select All" 
 TextBox1.EnterFieldBehavior = 0 'fmEnterFieldBehaviorSelectAll 
 End If 
End Sub 
 
Sub ToggleButton3_Click() 
 If ToggleButton3.Value = True Then 
 ToggleButton3.Caption = "Drag Enabled" 
 TextBox2.DragBehavior = 1 'fmDragBehaviorEnabled 
 Else 
 ToggleButton3.Caption = "Drag Disabled" 
 TextBox2.DragBehavior = 0 'fmDragBehaviorDisabled 
 End If 
End Sub 
 
Sub ToggleButton4_Click() 
 If ToggleButton4.Value = True Then 
 ToggleButton4.Caption = "Recall Selection" 
 TextBox2.EnterFieldBehavior = 1 'fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton4.Caption = "Select All" 
 TextBox2.EnterFieldBehavior = 0 'fmEnterFieldBehaviorSelectAll 
 End If 
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.