SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: eddy_rv en Jueves 6 de Abril de 2006, 02:39

Título: Richtextbox
Publicado por: eddy_rv en Jueves 6 de Abril de 2006, 02:39

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:

DATOS11111A
DATOS22222A

DATOS11111B
DATOS22222B

DATOS11111C
DATOS22222C

Y 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:

Código: Text

1.  
2. Dim conta As Integer
3. conta = 0
4. For i = 1 To 10
5. Me.RichTextBox1.Text &= "DATOS111111X" & vbNewLine
6. Me.RichTextBox1.Select(conta, Me.RichTextBox1.Text.Length)
7. Me.RichTextBox1.SelectionColor = Color.Gold
8. conta = Me.RichTextBox1.Text.Length
9. Me.RichTextBox1.Text &= "DATOS222222X" & vbNewLine
10. Me.RichTextBox1.Select(conta, Me.RichTextBox1.Text.Length)
11. Me.RichTextBox1.SelectionColor = Color.DarkCyan
12. conta = Me.RichTextBox1.Text.Length
13. Next
14.  
15.  

en fin despues de correr todo apere como :

DATOS11111A
DATOS22222A

DATOS11111B
DATOS22222B

DATOS11111C
DATOS22222C

Si alguien sabe porque sucede esto se lo agradeceria mucho.

Saludos y GRacias