Maximize question

M

Mark

Hello All,

Is there a way to maximize a form to cover up the taskbar? I would like a
from to be something like a lock on the PC if possible.
 
M

Mark

Sorry, I should had been in the forms topic. Please answer here though if
you know because I'm not going to double post this question in the right
topic.
 
G

Gary Walter

Mark said:
Sorry, I should had been in the forms topic. Please answer here though if
you know because I'm not going to double post this question in the right
topic.
Click to expand...

Here be all the code in a popup form
that hides the taskbar (in WinXP) and
maximizes form to "the whole screen"
when it is opened,
then unhides taskbar when popup form
closes.

Option Compare Database
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long

Private TaskBar As Long

Private Sub Form_Open(Cancel As Integer)
TaskBar = FindWindow("Shell_TrayWnd", vbNullString)
'hide taskbar
ShowWindow TaskBar, 0
DoCmd.Maximize
End Sub

Private Sub Form_Close()
'unhide taskbar
ShowWindow TaskBar, 4
End Sub

It came from Google Group search and
adaptation of code provided by Lorne Smith.
 
Top