Ocultar barras y menú de access en aplicación

0
278

Simplemente debemos generar un módulo en vba con el siguiente código

Option Compare Database
 
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
 
'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
 
Function OcultarVentanaAccess(Ocultar As Boolean) As Boolean
 
Dim lngHwnd As Long
Dim bytNivel As Byte
    lngHwnd = Application.hWndAccessApp
    bytNivel = IIf(Ocultar, 0, 255)
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, bytNivel, LWA_ALPHA
    OcultarVentanaAccess = True
End Function

Luego en nuestro formulario principal en la carga del mismo asignarte el valor necesario

OcultarVentanaAccess(true) 'para ocultar ventada de access
OcultarVentanaAccess(false) 'para mostrar ventana de access
-- Publicidad --

DEJA UNA RESPUESTA

Por favor ingrese su comentario!
Por favor ingrese su nombre aquí