Propriété ComboBox.SelLength (Access)

La propriété SelLength (LongueurSélection) spécifie ou détermine le nombre de caractères sélectionnés dans la partie zone de texte d'une zone de liste déroulante. Entier en lecture/écriture.

Syntaxe

expression. SelLength

Expression Variable qui représente un objet ComboBox .

Remarques

La propriété SelLength utilise un type Integer compris entre 0 et le nombre total de caractères de la partie zone de texte d'une zone de liste déroulante.

Pour définir ou renvoyer cette propriété pour un contrôle, le contrôle doit avoir le focus. Pour déplacer le focus sur un contrôle, utilisez la méthode SetFocus.

Si la propriété SelLength un nombre inférieur à 0, vous obtiendrez une erreur d'exécution.

Exemple

L'exemple suivant utilise deux procédures événementielles pour rechercher le texte spécifié par l'utilisateur. Le texte à rechercher est défini dans la procédure événementielle Load du formulaire. La procédure événementielle Click pour le bouton Rechercher (sur lequel l’utilisateur clique pour démarrer la recherche) invite l’utilisateur à rechercher le texte à rechercher et sélectionne le texte dans la zone de texte si la recherche réussit.

Private Sub Form_Load() 
 
 Dim ctlTextToSearch As Control 
 Set ctlTextToSearch = Forms!Form1!Textbox1 
 
 ' SetFocus to text box. 
 ctlTextToSearch.SetFocus 
 ctlTextToSearch.Text = "This company places large orders twice " & _ 
 "a year for garlic, oregano, chilies and cumin." 
 Set ctlTextToSearch = Nothing 
 
End Sub 
 
Public Sub Find_Click() 
 
 Dim strSearch As String 
 Dim intWhere As Integer 
 Dim ctlTextToSearch As Control 
 
 ' Get search string from user. 
 With Me!Textbox1 
 strSearch = InputBox("Enter text to find:") 
 
 ' Find string in text. 
 intWhere = InStr(.Value, strSearch) 
 If intWhere Then 
 ' If found. 
 .SetFocus 
 .SelStart = intWhere - 1 
 .SelLength = Len(strSearch) 
 Else 
 ' Notify user. 
 MsgBox "String not found." 
 End If 
 End With 
 
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.