|
|
Postada em 09/06/2005 10:43 hs
olen = 1 t = Split(RichTextBox1.Text, " ") ' Isso põe o conteudo do richtextbox em uma array For i% = 0 To UBound(t) If UCase(t(i%)) = UCase("teste") Then RichTextBox1.SelStart = olen - 1 RichTextBox1.SelLength = 5 RichTextBox1.SelColor = vbRed RichTextBox1.SelBold = True End If olen = olen + Len(t(i%)) + 1 Next i%
|
|
|
|