Access - EFECTO AL ABRIR UN FORMULARIO

 
Vista:
sin imagen de perfil
Val: 32
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

EFECTO AL ABRIR UN FORMULARIO

Publicado por Jefferson (382 intervenciones) el 16/07/2009 04:26:47
Con este codigo puedes crear un Efecto al Abrir un Formulario o Informe y asi le das un toque mas personal a tu Aplicacion

Option Compare Database
Option Explicit
'***************************************************************
'& &*
'& &*
'& &*
'& &*
'& Jefferson Jimenez (JJJT) &*
'& Cabimas - Venezuela &*
'& Julio - 2009 &*
'& &*
'& &*
'& &*
'& &*
'& &*
'***************************************************************
'Como hacer para que al abrir y al cerrar nuestros form parezcan desvanecerse
'Primero declaramos las Constantes de Efecto
Const Transp = &H2
Const Oculto = &H10000
Const Efecto = &H80000
'Establezco el color del Formulario
Const Color As Long = 12632256
'Establezco la Transparencia del Formulario
Const EfecTrans As Long = 220
'Declaro las funciones del API de Windows
Declare Function JJJTAnimar Lib "user32" Alias "AnimateWindow" _
(ByVal hwnd As Long, _
ByVal dwTime As Long, _
ByVal dwFlags As Long) _
As Long
Declare Function Ventana_JJJT Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) _
As Long
Declare Function TranVen_JJJT Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Declare Function Accion_JJJT Lib "user32" Alias "SetLayeredWindowAttributes" _
(ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long
'Creo la Funcion del efecto al abrir
'El Formulario debe tener la Opcion Emergente = Si
Function JJJT_EfectoOpen(frm As Form)
JJJTAnimar frm.hwnd, 200, Efecto
frm.Section(0).BackColor = Color
frm.Modal = True
frm.ShortcutMenu = True
End Function
'Creo la Funcion al cerrar
Function JJJT_EfectoClose(frm As Form)
JJJTAnimar frm.hwnd, 500, Oculto Or Efecto
End Function
'Creo la Funcion Transparencia
Function JJJT_Transparencia(frm As Form)
TranVen_JJJT frm.hwnd, (-20), _
Ventana_JJJT(frm.hwnd, (-20)) _
Or &H80000
Accion_JJJT frm.hwnd, 0, _
EfecTrans, Transp
End Function
'Creo la Funcion Normal
Function JJJT_Normal(frm As Form)
TranVen_JJJT frm.hwnd, (-20), _
Ventana_JJJT(frm.hwnd, (-20)) _
Or &H80000
Accion_JJJT frm.hwnd, 0, _
255, Transp
End Function
'Creo la Funcion CierroTransp
Function JJJT_CierroTransp(frm As Form)
TranVen_JJJT frm.hwnd, (-20), _
Ventana_JJJT(frm.hwnd, (-20)) _
Or &H80000
Accion_JJJT frm.hwnd, 0, _
(EfecTrans - 120), Transp
JJJTAnimar frm.hwnd, 300, _
Efecto Or Oculto
End Function

Para descargar el Ejemplo desde la Direccion URL
Desde Venezuela
Jefferson
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Enrique Ramírez
Val: 37
Ha aumentado 1 puesto en Access (en relación al último mes)
Gráfica de Access

RE:EFECTO AL ABRIR UN FORMULARIO

Publicado por Enrique Ramírez (629 intervenciones) el 21/07/2009 15:34:17
Hola Jefferson, puse tu codigo en un formulario y no crea ningun efecto mas sin embargo si hago clic incluso en el boton salir me marca :
La expresion al hacer clic que introdujo como valor de la propiedad de evento produjo un error.....etc.
me hara falta alguna referencia? o sera la version del access pues utilizo 2002
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:EFECTO AL ABRIR UN FORMULARIO

Publicado por Jefferson (4 intervenciones) el 21/07/2009 16:17:32
Debes colocar el formulario en Emergente y Modal,
En Modal lo hago por codigo VBA
En Emergente todavia no he logrado hacerlo por codigo VBA (Si lo conoces me avisas)

De todas maneras en la Direccion URL hay un ejemplo de como usarlo....

Un Saludo Amigo
Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Enrique Ramírez
Val: 37
Ha aumentado 1 puesto en Access (en relación al último mes)
Gráfica de Access

RE:EFECTO AL ABRIR UN FORMULARIO

Publicado por Enrique Ramírez (629 intervenciones) el 21/07/2009 18:17:28
ya funciona si veo la diferencia pero si el efecto fuera un poco mas lento se notaria mas, como quiera gracias por los tips.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:EFECTO AL ABRIR UN FORMULARIO

Publicado por Jefferson (2 intervenciones) el 21/07/2009 19:36:16
en la funcion

Function JJJT_EfectoOpen(frm As Form)
JJJTAnimar frm.hwnd, 200, Efecto
frm.Section(0).BackColor = Color
frm.Modal = True
frm.ShortcutMenu = True
End Function

le puedes colocar el Tiempo,,,,,,,!

Gracias Enrique
Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JUAN MUÑOZ
Val: 40
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

excelente codigo me funciona a la perfeccion

Publicado por JUAN MUÑOZ (50 intervenciones) el 05/07/2018 04:50:47
el código funciona excelente gracias por aportar esos detalles, me causa curiosidad que el tiempo de apertura y cierre no se ve reflejado cuando le cambio los valores a la velocidad,

una pregunta adicional y es que estoy buscando la manera que cuando abra una aplicación hecha en access, es que no se muestre la ventana cuando esta cargando access ese que dice cargando access y también se ve el fondo de el desarrollo antes de iniciar mi formulario . hay alguna manera de evitar eso?.......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar