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.