Efecto al abrir el Form

[Nardo[N]]

Hola gente pues esta vez vengo trayendo un code que nos  da un efecto al abrir el Form (se abre desde el centro del form y se va expandiendo):

Código [Seleccionar] Expandir

Option Explicit

Private Sub EfectoExplosion(ByRef frmFormulario As Form)
 Dim lngA As Long
 
 With frmFormulario
   .Width = 0
   .Height = 0
   .Show
 
   For lngA = 0 To 10000 Step 50
     .Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, lngA, lngA
     DoEvents
   Next lngA
   
   End With
 
End Sub

Private Sub Form_Load()
   EfectoExplosion Me
End Sub

Para hacerlo mas dinamico (rapido) el efecto .. cambiamos la cantidad de esta linea:

Código [Seleccionar] Expandir

    For lngA = 0 To 10000 Step 50



Salu2 si desean mas efectos solo me lo dicen en este post = )

[Edu]

Ya lo probare, muy buena idea xD nunca la pense -_-' xD

[TGa.]

Buena idea . Creo que 79137913 había posteado algo parecido, solo que el lo habia hecho con un timer

[79137913]

HOLA!!!

Me Encanto!!!

Buenisimo, el post creo que era : [EFECTO VISUAL] hacer que un form crezca hasta su tamaño real o algo asi

Repito, muy bueno y muy fluido el movimiento



P.D: La Rana me pincho el globo igual con ese tema XD.

Miren esto: http://www.recursosvisualbasic.com.ar/htm/listado-api/185-animacion-de-ventanas-formularios.htm



GRACIAS POR LEER!!!

[zh1b0x.]

Hola, me parece buenisimo, queda mas copado los forms, usare el efecto en mis proyectos.

S2.

[Nardo[N]]

Gracias por los comentarios .. talvez deje mas efectos en unos dias ..

Salu2 !