Red de conocimiento informático - Problemas con los teléfonos móviles - Transición de color de formulario VB

Transición de color de formulario VB

Yo haría un color de transición, pero parece un poco diferente a lo que dijiste, ¿no? Puedes intentarlo, pero estoy seguro de que será mejor que el tuyo.

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)

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