TextBox.SelText-Eigenschaft (Access)

  • Artikel

Die SelText-Eigenschaft gibt eine Zeichenfolge mit dem ausgewählten Text zurück. String-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. SelText

Ausdruck Eine Variable, die ein TextBox-Objekt darstellt.

HinwBemerkungeneise

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.

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.

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

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.