Foro de elhacker.net

Hola

Soy yo molstando de vuelta

Quiero hacer que un texto (Ya sea label o textbox, no me importa) cambie de color digamosle "Cromaticamente"

osea, que se ponga azul, y despues violeta hasta el rojo, naranja hasta el amarillo, verde hsta el azul y asi.

Espero que se haya entendido.

intente con esto.

for red = 0 to 255
  for green = 0 to 255
    for blue = 0 to 255
      Text1.forecolor = RGB(red, green, blue)
      doevents
    next blue
  next green
next red
 

pero no es nada que no funcionaba sino que las letras del textbox parpadeaban y no cambiaban de color.

Gracias por la ayuda.

proba esto:

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private Sub Command1_Click()
    For red = 0 To 255
        For green = 0 To 255
            For blue = 0 To 255
                Dim retraso As Long
 
                retraso = 10 + GetTickCount&
 
                While retraso >= GetTickCount&
                    DoEvents
                Wend
 
                Label1.ForeColor = RGB(red, green, blue)
 
            Next blue
        Next green
    Next red
End Sub

saludos.

HOLA!!!

Si lo haces como dice Seba va a funcionar pero a 0.01 segundo por combinacion mas el tiempo de proceso vas a tener aprox 48 horas para mostrar todos los colores por eso te voy a recomendar que uses step 32 en los 3 for y retraso de 1 tick (0.001 seg) y asi te va a tardar de negro a blanco en teoria sin tiempo de proceso medio segundo pero en la practica va a ser aprox 8 segundos y te va a quedar un lindo efecto.

GRACIAS POR LEER!!!

por alguna razon cuando pongo el "Do events" el bucle se clava ahi. no importa cuanto tiempo pase. se clava ahi.