Formulario con Efecto degradado
Hola Expertos:
Si alguien me puede ayudar estoy haciendo un proyecto y necesito hacer un formulario que ten un fondo degradado pero que a la vez este efecto se muestre pausadamente.
¿Se puede hacer con un timer pero no se como?
Si alguien me puede ayudar... Por favor
Gracias x su atencion =)
Jesenia
Si alguien me puede ayudar estoy haciendo un proyecto y necesito hacer un formulario que ten un fondo degradado pero que a la vez este efecto se muestre pausadamente.
¿Se puede hacer con un timer pero no se como?
Si alguien me puede ayudar... Por favor
Gracias x su atencion =)
Jesenia
1 Respuesta
Respuesta de jarpsoft
1
Allí tienes un ejemplo de lo que pides, solo agregas un control Timer y lo pegas en el Form Load el código.
Suerte.
Option Explicit
Dim cont, i As Long
Private Sub Form_Load()
'Configurar temporizador
Timer1.Interval = 5
Timer1.Enabled = True
'Inicializar variables
cont = 1
i = 0
'Inicializar valores del formulario
Me.DrawStyle = vbInsideSolid
Me.DrawMode = vbCopyPen
Me.ScaleMode = vbPixels
Me.DrawWidth = 8
Me.ScaleHeight = 255
Me.Height = 7000
Me.Width = 9000
End Sub
Private Sub Timer1_Timer()
'Proceso del degradado
If cont <= Me.Height Then
Timer1.Enabled = False
Me.Line (0, cont)-(Screen.Width, cont - 1), RGB(0, 0, 255 - i), B
cont = cont + 1
If (cont Mod 2 = 0) And (i < 255) Then
i = i + 1
End If
Timer1.Enabled = True
End If
End Sub
Suerte.
Option Explicit
Dim cont, i As Long
Private Sub Form_Load()
'Configurar temporizador
Timer1.Interval = 5
Timer1.Enabled = True
'Inicializar variables
cont = 1
i = 0
'Inicializar valores del formulario
Me.DrawStyle = vbInsideSolid
Me.DrawMode = vbCopyPen
Me.ScaleMode = vbPixels
Me.DrawWidth = 8
Me.ScaleHeight = 255
Me.Height = 7000
Me.Width = 9000
End Sub
Private Sub Timer1_Timer()
'Proceso del degradado
If cont <= Me.Height Then
Timer1.Enabled = False
Me.Line (0, cont)-(Screen.Width, cont - 1), RGB(0, 0, 255 - i), B
cont = cont + 1
If (cont Mod 2 = 0) And (i < 255) Then
i = i + 1
End If
Timer1.Enabled = True
End If
End Sub
