trucos access 2010 efecto transparencia formularios

[@Eolivas]

Gracias mi estimado Nitram por compartir tus conocimientos, está muuy padre, SAludos desde Chihuahua, México

[@duertasc13]

Mi Hermano mil gracias por tú ayuda, esta excelente este truco

[@cesarrivera1925]

Gracias por compartir. Son buenos tus vídeos.

[@thecastle4815]

Excelente. Para los que usan 64 Bit Les muestra el código en Rojo agregue lo siguiente al código Declare PtrSafe Function los de 32 bit Declare Function con eso ya les funcionara.

[@mikerraiders1972]

Martin se ve muy bien

[@sohear444401]

El efecto se ve muy padre en un subformulario.

[@jonnyaro]

estuvo excelente...

[@lachapinitaguatemala7063]

woooooooooo albert ainstain

[@mikerraiders1972]

te voy a compartir un codigo para hacer que el entorno de desarrollo desaparesca se ven bien profecional.

[@GraRoleyberlato]

Cómo se regula la transparencia?

[@ronywilfredosegurasanabria3297]

Que modificaciones se podran hacer para que funcionen con win de 64bit?

[@lesliemarielramirezchavez4700]

Option Compare Database Option Explicit 'Auror Jeferson venezuela '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 'Por aqui le paso la velocidad del Efecto Const VelOpen As Long = 500 Const VelClose As Long = 700 'Establezco el color del Formulario Const Color As Long = 12632256 'Establezco la Transparencia del Formulario Const EfecTrans As Long = 200 'Declaro las funciones del API de Windows Declare PtrSafe Function JJJTAnimar Lib "user32" Alias "AnimateWindow" _ (ByVal hwnd As Long, _ ByVal dwTime As Long, _ ByVal dwFlags As Long) _ As Long Declare PtrSafe Function Ventana_JJJT Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long) _ As Long Declare PtrSafe Function TranVen_JJJT Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) _ As Long Declare PtrSafe 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, VelOpen, 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, VelClose, 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

[@marcelogustavodesiderio2943]

Hola, al copiar en codigo en un modulo me sale un error, dice : Error de Compilacion : el codigo de este proyecto se debe actualizar para usarse en sistemas de 64 bits. Revise y actualice las instrucciones Declare y, a continuacion, marquelas con el atributo PtrSafe. A que se debe ? como se puede solucionar ?Desde ya racias y muy bueno el video ...

[@joseluisramirez3932]

No corre en 64 bits

[@JonathanGonzalez-rs8gf]

Para que funcione has lo siguiente, sustituye "Declare Function" por "Declare PtrSafe Function", has esto en las cuatro líneas donde se declaran las variables, como veras, solo se agregó el atributo Ptrsafe.

[@ccuberos]

tambien solo para 32bits :(