Partager via

Propriété ComboBox.SelStart (Access)

  • Article

La propriété SelStart spécifie ou détermine le point de départ du texte sélectionné ou la position du point d'insertion si aucun texte n'est sélectionné. Entier en lecture/écriture.

Syntaxe

expression. SelStart

Expression Variable qui représente un objet ComboBox .

Remarques

La propriété SelStart utilise un type Integer compris entre 0 et le nombre total de caractères dans 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.

Modification de la propriété SelStart annule la sélection, place un point d'insertion dans le texte et définit la propriété SelLength sur 0.

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.