HOLA!!!
Este efecto hace que el formulario se vaya agrandando hasta llegar a su tamaño original, buen efecto, para lograr un acabado diferente se puede quitar la linea que dice Me.Visible = False y la linea que dice Me.Visible = True asi queda otro efecto.
Recomiendo poner StartUpPosition = 2 antes de Ejecutar
Private Alto as integer
Private Largo as integer
Private Aux as Double
Private Sub Form_Initialize()
Me.Visible = False
Alto = Me.Height
Largo = Me.Width
Aux = 10
Timer1.interval = 10
End Sub
Private Sub Timer1_Timer()
Me.Visible = True
Aux = Aux - (Aux / 10)
Me.Height = Alto / Aux
Me.Width = Largo / Aux
If Aux < 1 Then
Me.Height = Alto
Me.Width = Largo
Timer1.Interval = 0
Timer1.Enabled = False
End If
End Sub
GRACIAS POR LEER!!!
Es Width, no Widht...
Ahora no tengo mucho tiempo para revisar, pero no me funciona... :-(
DoEvents! :P
HOLA!!!
XD Es cierto, ahora ya funciona perfecto ;).
GRACIAS POR LEER!!!
Cierto, me recuerda a esto que hice en mis comienzos:
http://goo.gl/u6wgr
También mira esto:
http://allapi.mentalis.org/apilist/AnimateWindow.shtml
DoEvents! :P