Transición de color de formulario VB
De esta manera, se actualizará un nuevo color cada 0,2 segundos. Tampoco puede usar el control del temporizador y luego copiar el código en el temporizador a from_click, para que el color degradado aparezca al hacer clic.
Sub privado Form_Click()
Descargarme
Fin Sub
Sub privado Form_Load()
Temporizador1 .Enabled = True
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Aleatorio 'Generar colores degradados aleatorios para especies
c2 = Int(Rnd * 256)
c3 = Int(Rnd * 256)
c = Int(Rnd * 3 1) p>
d = (Me.Height - 500) / 254
Me.DrawWidth = d (15DrawWidth = d\ 15 1
Para i = 0 To (Me. Alto - 500) Paso d
Me.Line (0, i)-(Me.Width, i), Elegir(c)Ancho, i), Elegir(c, RGB(c1, c2, c3) ), RGB(c2, c1, c3), RGB(c2, c3), RGB(c2, c3), c1)) 'Establece valores de color RGB de diferentes tamaños dentro de una cierta distancia para crear un efecto de degradado
c1 = c1 1
Siguiente
Fin Sub