April 16th, 2014, 07:06 PM
.Find Ignore case
HI, looking for some friendly advice.
Private Sub SortColour()
Dim ObjectList As New List(Of String)
For i As Integer = 1 To lstObjects.Items.Count - 1
Dim L As Integer = rtbRoom.TextLength
For Each word As String In ObjectList
Dim lastindex = rtbRoom.Text.LastIndexOf(word)
Dim index As Integer = 0
While index < lastindex
rtbRoom.Find(word, index, L, RichTextBoxFinds.None)
rtbRoom.SelectionColor = Color.Lime
index = rtbRoom.Text.IndexOf(word, index) + 1
Can anyone please tell me how I can get the above code to be NOT case sensitive.
I've tried all sorts but can't fathom it. Any help will be greatly appreciated.
Click Here to Expand Forum to Full Width
This is a CodeGuru survey question.