highlight text in userform textbox

How would I highlight a certain character in a plain multiline textbox on a
userform
given the line number and the character number in that line?

So for example given this text:

This is a test.
Trying to highlight.

and given line number 2 and character number 15
the character l in the second line would be highlighted.

RBS

Not the most elegant method perhaps, but it does work:


Option Explicit

Private Sub UserForm_Initialize()

TextBox1.Text = "0 - Option Explicit" & vbCrLf & _
"1 - Option Compare Binary" & vbCrLf & _
"2 - Public IDWhereSQL As String" & vbCrLf & _
"3 - Public DoAddress As Boolean" & vbCrLf & _
"4 - Public DoPhone As Boolean" & vbCrLf & _
"5 - Private IDSelectSQL As String" & vbCrLf & _
"6 - Private IDFromClause As String" & vbCrLf & _
"7 - Private DoIDFromClause As Boolean"

TextBox2.Text = "2"
TextBox3.Text = "0"

End Sub


Private Sub CommandButton1_Click()

Dim i As Long
Dim lCurXStart As Long
Dim lChar As Long
Dim lLineToReach As Long
Dim lCharToReach As Long

lLineToReach = Val(TextBox2.Text)
lCharToReach = Val(TextBox3.Text)

With TextBox1

.SetFocus
.SelStart = 0

'this is the position at the
'very left margin of the textbox
'---------------------------------------
lCurXStart = .CurX

Do Until (.CurLine = lLineToReach And _
lChar = lCharToReach) Or i = Len(.Text)

.SelStart = i
lChar = lChar + 1
i = i + 1

'reset the lChar at the left margin
'----------------------------------
If .CurX = lCurXStart Then
lChar = 0
End If

DoEvents
Loop

.SelLength = 1

End With

End Sub


RBS


"RB Smissaert" <[email protected]> wrote in message
news:[email protected]...
> How would I highlight a certain character in a plain multiline textbox on
> a userform
> given the line number and the character number in that line?
>
> So for example given this text:
>
> This is a test.
> Trying to highlight.
>
> and given line number 2 and character number 15
> the character l in the second line would be highlighted.
>
> RBS