Programación General > Visual Basic 6.0 e inferiores

 Texto De Colores

(1/1)

Navx:
Hola a todos, bueno sucede que quiero que al escribir un texto, este cambie el color de cada letra de un color diferente. Por ejemplo: al escribir una H que la ponga AZUL, al escribir E la ponga ROJA...etc (HELLO).

Ya tengo algo pero me pone todo el texto del mismo color...como puedo hacerlo?

Sub Text1_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
  Case 101
      Text1.ForeColor = vbRed
  Case 104
      Text1.ForeColor = vbBlue
  Case 108
      Text1.ForeColor = vbYellow
  Case 111
      Text1.ForeColor = vbGreen
 End Select
End Sub

Brroz:
Hola Navx.

Para hacer algo así de manera sencilla tendrías que usar un PictureBox, o lo más fácil: un RichTextBox (Microsoft Rich TextBox Control).

El código sería muy parecido:

--- Código: Text --- Private Sub Richtextbox1_KeyPress(KeyAscii As Integer)  Select Case KeyAscii    Case 101      RichTextBox1.SelColor = vbRed    Case 104      RichTextBox1.SelColor = vbBlue    Case 108      RichTextBox1.SelColor = vbYellow    Case 111      RichTextBox1.SelColor = vbGreen    Case Else      RichTextBox1.SelColor = vbBlack  End SelectEnd Sub  
Suerte.

Navx:
Orale, pues muchisimas gracias por responder ya lo probe, y vaya ke era algo tan sencillo como usar un RichTextBox....jeje  :P

Tanks Brroz y salu2    :)

Navegación

[0] Índice de Mensajes