Ocultar janela do banco de dados - Método Transparência
Seu sistema ficará com uma aparência profissional.
Esta é uma maneira muito simples de ocultar a janela do banco de dados, com este recurso é possível
variar a transparência da janela gradativamente, variando de 0 até 255, quanto mais próximo de zero, maior será a transparência.
'Copie e cole o código abaixo para seu formulário principal.
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Function AccessTransparente(Nivel As Integer)
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 255 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function
Private Sub Form_Open(Cancel As Integer) 'Evento ao abrir o formulário o nível de transparência será zero.
AccessTransparente (0)
End Sub
'Atenção:
'Defina o formulário como "popup = sim" na aba Outras da janela de propriedades do formulário,
'isto é necessário para o formulário seja exibido na frente dos demais.
'Quando fechar o access pelo botão "X", a janela do access ficará aberta no rodapé do windows,
'para resolver este problema, consulte o exemplo "Fechar Sistema".