Partager via

Contrôle TextBox, méthode SetFocus, propriétés EnterFieldBehavior, HideSelection, MultiLine, Value – Exemple

  • Article

L’exemple suivant illustre la propriété HideSelection dans le contexte d’un formulaire unique ou de plusieurs formulaires.

L’utilisateur peut sélectionner du texte dans un contrôle TextBox et tabulation vers d’autres contrôles d’un formulaire, ainsi que transférer le focus vers un deuxième formulaire. Cet exemple de code utilise également la méthode SetFocus et les propriétés EnterFieldBehavior, MultiLine et Value .

Pour utiliser cet exemple, procédez comme suit :

  1. Copiez cet exemple de code (à l’exception de la sous-routine du dernier événement) dans la partie Declarations d’un formulaire.

  2. Ajoutez un objet TextBox volumineux nommé TextBox1, un ToggleButton nommé ToggleButton1 et un CommandButton nommé CommandButton1.

  3. Insérez un deuxième formulaire nommé UserForm2 dans ce projet.

  4. Collez la sous-routine du dernier événement de cette liste dans la section Declarations du formulaire UserForm2.

  5. Dans ce formulaire, ajoutez un bouton de commande CommandButton nommé CommandButton1.

  6. Exécutez le formulaire UserForm1.

' ***** Code for UserForm1 ***** 
Private Sub CommandButton1_Click() 
 TextBox1.SetFocus 
 UserForm2.Show 'Bring up the second form. 
End Sub

Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 TextBox1.HideSelection = False 
 ToggleButton1.Caption = "Selection Visible" 
 Else 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 End If 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection 
 
'Fill the TextBox 
 TextBox1.Text = "SelText indicates the starting " _ 
 & "point of selected text, or the insertion " _ 
 & point if no text is selected." & Chr$(10) _ 
 & Chr$(13) & "The SelStart property is " _ 
 & "always valid, even when the control does " _ 
 & "not have focus. Setting SelStart to a " _ 
 & "value less than zero creates an error. " _ 
 & Chr$(10) & Chr$(13) & "Changing the value " _ 
 & "of SelStart cancels any existing " _ 
 & "selection in the control, places " _ 
 & "an insertion point in the text, and sets " _ 
 & "the SelLength property to zero." 
 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 ToggleButton1.Value = False 

End Sub

'
' ***** Code for UserForm2 *****

Private Sub CommandButton1_Click() 
 UserForm2.Hide 
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.