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):
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 SubPara hacerlo mas dinamico (rapido) el efecto .. cambiamos la cantidad de esta linea:
For lngA = 0 To 10000 Step 50Salu2 si desean mas efectos solo me lo dicen en este post = )
Ya lo probare, muy buena idea xD nunca la pense -_-' xD
Buena idea :D. Creo que 79137913 había posteado algo parecido, solo que el lo habia hecho con un timer
HOLA!!!
Me Encanto!!!
Buenisimo, el post creo que era : [EFECTO VISUAL] hacer que un form crezca hasta su tamaño real o algo asi :P
Repito, muy bueno y muy fluido el movimiento :D
;-) ;-) ;-) ;-) ;-)
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!!!
Hola, me parece buenisimo, queda mas copado los forms, usare el efecto en mis proyectos.
S2.
Gracias por los comentarios .. talvez deje mas efectos en unos dias ..
Salu2 !