Primeiramente bom dia a todos, tenho um aplicativo roda bem eu uso o Monta Ribbons do Avelino também tá blza só queria que ao abrir o aplicativo não aparecesse aquele nome do access e até a ribbon normal antes de carregar a nova ribbon, ou seja, queria que durante o primeiro form de login ficasse só ele na tela depois do login carrega todo janela do aplicativo, quase consegui com um código que achei para deixar a janela transparente só que tem um problema depois ele não fica totalmente visivel fica um pouco transparente ainda se alguém tiver uma outra sugestão agradeço.
código citado
código citado
- Código:
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
'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 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
No form principal, evento "Ao carregar":
Call AccessTransparente(0)