HOLA A TODOS, ESTOY INTENTANDO REALIZAR UN PROGRAMA Q ME SAQUE DATOS DE MI BD, MAS O MENOS DE LA SIGUIENTE MANERA, (con un color diferente cada linea:
DATOS11111ADATOS22222ADATOS11111BDATOS22222BDATOS11111CDATOS22222CY asi, lo estoy haciendo de la siguiente manera con una funcion, lo q hago es sacar el dato y lo seleciono y le pongo un color, lo mismo con la segunda fila, pero a medida de q la iteracion avanza toma dominio el primer color, no se porque:
Dim conta As Integer
conta = 0
For i = 1 To 10
Me.RichTextBox1.Text &= "DATOS111111X" & vbNewLine
Me.RichTextBox1.Select(conta, Me.RichTextBox1.Text.Length)
Me.RichTextBox1.SelectionColor = Color.Gold
conta = Me.RichTextBox1.Text.Length
Me.RichTextBox1.Text &= "DATOS222222X" & vbNewLine
Me.RichTextBox1.Select(conta, Me.RichTextBox1.Text.Length)
Me.RichTextBox1.SelectionColor = Color.DarkCyan
conta = Me.RichTextBox1.Text.Length
Next
en fin despues de correr todo apere como :
DATOS11111ADATOS22222ADATOS11111BDATOS22222BDATOS11111CDATOS22222CSi alguien sabe porque sucede esto se lo agradeceria mucho.
Saludos y GRacias
