[EFECTO VISUAL] Hacer que un Form crezca hasta su tamaño real.

[79137913]

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

Código (vb) [Seleccionar] Expandir

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!!!

[Psyke1]

Es Width, no Widht...
Ahora no tengo mucho tiempo para revisar, pero no me funciona...

DoEvents!

[79137913]

HOLA!!!

XD Es cierto, ahora ya funciona perfecto .

GRACIAS POR LEER!!!

[Psyke1]

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!