none
problema em colorir código RRS feed

  • Pergunta

  • Public Class Form1
        Dim testearray(1) As String
        Dim ultima_palavra_alterada As Integer = 0
        Dim minimo As Integer
        Dim aux = 0
       
    
        Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
            '  RichTextBox1.SelectionColor = Color.Black
            RichTextBox1.ForeColor = Color.Black
            If RichTextBox1.TextLength >= minimo Then
                For i = 1 To RichTextBox1.TextLength
                    If Mid(RichTextBox1.Text, i, testearray(aux).Length) = testearray(aux) Then
                        SendKeys.Send("{END}")
                        RichTextBox1.SelectionStart = i
                        Me.Text = RichTextBox1.SelectedText
                        RichTextBox1.SelectionLength = testearray(aux).Length
                        RichTextBox1.SelectionColor = Color.Blue
                        ME.(RichTextBox1.SelectedText)
                        RichTextBox1.SelectionLength = 0
                        RichTextBox1.SelectionColor = Color.Black
    
    
                    End If
                Next
            End If
    
            ' End If
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            testearray(0) = "TESTE"
            testearray(1) = "TEST"
    
    
            minimo = testearray(0).Length
            For i = 0 To testearray.Length - 1
    
    
    
                If testearray(i).Length < minimo Then
                    minimo = testearray(i).Length
                End If
    
            Next
        End Sub
    End Class

    Eu estou a tentar colorir partes do codigo. O objectivo e que ao colocar uma palavra que se encontre no meu array testearray ele coloque a cor do texto a azul. mas o que acontece e que se eu escrever teste que e a palavra que ainda esta para ser verificada em código, depois todas as outras que escrever a frente ficam a azul tambem. Alguem me sabe dizer o porque?


    VErificaçao imagens

    sábado, 21 de julho de 2012 10:54

Respostas

Todas as Respostas

  • Veja essa pergunta.Se precisar converter pra VB,usa isso.
    sábado, 21 de julho de 2012 19:45
  • Primeiro vc deve separar sua palavra é uma palavra somente ou um texto que vc quer colorir ? tipo isso " o meu codigo é um teste" ai ele vai colorir só a palavra teste que é a que está no seu array ? se for primeiro vc tem que pegar a string e pegar as palavras até o espaço em branco e dar um for no seu array pesquisando se a palavra existe, caso exista vc muda a cor dela a lógica é essa, agora o grande problema é como vc vai pegar essa string até o espaço em branco para pegar palavra a palavra ou seja vc teria que pegar somente "o" "meu" "código" "e" "um" "teste"


    Junior

    segunda-feira, 23 de julho de 2012 11:33