G
Guest
In vb6 you could find text then span to include all text to a given point.
Public Sub Findd(RTF As RichTextBox, Find As String)
RTF.Find (Find)
textfind = RTF.Find(Find)
If textfind <> -1 Then
foundtxt = True
RTF.Span "@", True, True
RTF.SetFocus
Exit Sub
Else
foundtxt = False
Exit Sub
End If
End Sub
How do you do this or somthing like it in VB.net?
Public Sub Findd(RTF As RichTextBox, Find As String)
RTF.Find (Find)
textfind = RTF.Find(Find)
If textfind <> -1 Then
foundtxt = True
RTF.Span "@", True, True
RTF.SetFocus
Exit Sub
Else
foundtxt = False
Exit Sub
End If
End Sub
How do you do this or somthing like it in VB.net?