TextBox.SelStart-Eigenschaft (Access)

  • Artikel

Die SelStart-Eigenschaft gibt den Anfangspunkt des markierten Texts oder die Position der Einfügemarke an, wenn kein Text markiert ist. Ganze Zahl mit Lese-/Schreibzugriff.

Syntax

Ausdruck. SelStart

Ausdruck Eine Variable, die ein TextBox-Objekt darstellt.

HinwBemerkungeneise

Die SelStart-Eigenschaft verwendet einen Integer-Wert im Bereich von 0 bis zur Gesamtanzahl der Zeichen im Textfeldbereich eines Kombinationsfelds.

Sie können diese Eigenschaft für ein Steuerelement nur festlegen oder zurückgeben, wenn das Steuerelement den Fokus besitzt. Verwenden Sie zum Verschieben des Fokus auf ein Steuerelement die SetFocus-Methode.

Das Ändern der SelStart-Eigenschaft bricht die Auswahl ab, setzt eine Einfügemarke in den Text und legt die SelLength-Eigenschaft auf 0 fest.

Beispiel

Im folgenden Beispiel werden zwei Ereignisprozeduren verwendet, um einen vom Benutzer angegebenen Text zu suchen. Der zu durchsuchende Text wird in der Load-Ereignisprozedur des Formulars festgelegt. Die Click-Ereignisprozedur für die Schaltfläche Suchen (auf die der Benutzer klickt, um die Suche zu starten) fordert den Benutzer auf, den text einzugeben, nach dem gesucht werden soll, und markiert den Text im Textfeld, wenn die Suche erfolgreich ist.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.