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?

from
http://www.dotnet4all.com/Dot-Net-Bo...an-method.html
You have to get the ITextDocument of the richtextbox and call the
Selection.Expand(tomWord) method ,see the msdn docs for ItextDocument
interface.

HTH
rawCoder

"Servoris" <(E-Mail Removed)> wrote in message
news:B3D0C63B-F647-4975-94E9-(E-Mail Removed)...
> 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?

Thanks for the responce. I have seen this before and I have not been able to
find more info. I am not a pro. programmer, just a hobbyist. I need to see
examples to understand.

"rawCoder" wrote:

> from
> http://www.dotnet4all.com/Dot-Net-Bo...an-method.html
> You have to get the ITextDocument of the richtextbox and call the
> Selection.Expand(tomWord) method ,see the msdn docs for ItextDocument
> interface.
>
> HTH
> rawCoder
>
> "Servoris" <(E-Mail Removed)> wrote in message
> news:B3D0C63B-F647-4975-94E9-(E-Mail Removed)...
> > 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?
>
>
>