TextBox.SelText-Eigenschaft (Access)
Die SelText-Eigenschaft gibt eine Zeichenfolge mit dem ausgewählten Text zurück. String-Wert mit Lese-/Schreibzugriff.
Ausdruck. SelText
Ausdruck Eine Variable, die ein TextBox-Objekt darstellt.
Wenn kein Text ausgewählt wurde, enthält die SelText-Eigenschaft einen Null-Wert.
Die Eigenschaft SelText verwendet einen Zeichenfolgenausdruck, der den im Steuerelement markierten Text enthält. Wenn das Steuerelement markierten Text enthält und diese Eigenschaft eingestellt ist, wird der markierte Text durch die neue Einstellung von SelText ersetzt.
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.
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.
Sub Form_Load()
Dim ctlTextToSearch As Control
Set ctlTextToSearch = Forms!Form1!TextBox1
ctlTextToSearch.SetFocus ' SetFocus to text box.
ctlTextToSearch.SelText = "This company places large orders " _
& "twice a year for garlic, oregano, chilies and cumin."
End Sub
Sub Find_Click()
Dim strSearch As String, 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
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.