Escondendo a janela do Access | Desenvolvimento de software

Quinta, 23 Dezembro 2010 17:49

Quer esconder totalmente a janela do Access e deixar apenas o seu form aparecendo?

Crie um módulo com o seguinte código:

Option Explicit

Global Const SW_HIDE = 0

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Function FSetAccessWindow(nCmdShow As Long)

Dim loX As Long

Dim loForm As Form

loX = apiShowWindow(hWndAccessApp, nCmdShow)

End Function

Agora no form, para esconder a janela, use:

FSetAccessWindow (0)

E para mostrar:

FSetAccessWindow (1)

Comentários

Dicas e Fatos