Hilite Searched Text/String in Textbox1 when you type the lookfor string in Textbox2

[SamDsouza]

Hi
Anyone

Is this Technical issue of hiliting a string or text in Textbox1 when you have typed the word "the" in Textbox2.
Because there is no Blue colour of Hilited Text in Textbox1 or rather no Hilite Colour of String Searched in textbox1

When text "the" typed in Textbox2 it should hilite at two places in Textbox1 "The Brown Fox quickly jumped over the lazy Dog"

Option Explicit

Private Sub UserForm_Initialize()
Dim strText As String
strText = "The Brown Fox quickly jumped over the lazy Dog"
Textbox1.text = strText
End Sub

Private Sub CommandButton_Click()

Dim OldString As String
Dim OldPos As Integer

Dim NewPos As Integer

NewPos = InStr(OldPos + 1, Textbox1.Text, Textbox2.Text, vbTextCompare)
If NewPos = 0 Then
     MsgBox "No more matches!"
  Else
     Textbox1.SelStart = NewPos
     Textbox1.SelLength = Len(Textbox2.Text)
End If
OldString = Textbox2.Text
OldPos = NewPos

End Sub

Your help will always be apprciated
SamD
190

 

[RoryA]

You can't select two separate parts of a textbox on a form.

 

[SamDsouza]

You can't select two separate parts of a textbox on a form.

RoryA

I did not get you

SamD
191

 

[RoryA]

You want your code to select both instances of 'the' in your textbox, and I'm saying you cannot do that.

 

[SamDsouza]

You want your code to select both instances of 'the' in your textbox, and I'm saying you cannot do that.

Why Not in VBA ? If same result is derived from Userform Textboxes of VB4 or VB6 Exactly i dont remember

Sir, How can i derive what i want

SamD
192

 

[RoryA]

Because you can't. If you need more than that, ask Microsoft. The userforms in VBA are not the same as the forms in VB6.

 

[SamDsouza]

Ok Sir,

It seems thats the End

SamD
193