Private Sub ColoraParola(Parola As String, Colore As Long)
Dim I As Integer
For I = 1 To Len(Rich) - Len(Parola)
Rich.SelStart = I
Rich.SelLength = Len(Parola)
If Rich.SelText = Parola Then Rich.SelColor = Colore
Next I
End Sub
Private Sub Command2_click()
ColoraParola "if", vbGreen
End Sub
io uso questo codice e mi funziona bene mi colora solo if e nn da errori (anche se una volta mi ha colorato lettre che nn doveva, ma la volta successiva lavorava come deve. nn so xk)
|