隱藏 Access 窗口

   Global Const SW_HIDE =
Global Const SW_SHOWNORMAL =
Global Const SW_SHOWMINIMIZED =
Global Const SW_SHOWMAXIMIZED =

　　Declare Function ShowWindow Lib "user" (ByVal hwnd As Long ByVal nCmdShow As Long) As Long

　　Function fSetAccessWindow(nCmdShow As Long)
&#; 使用舉例
&#; 最大化 Access 窗口
&#; ?fSetAccessWindow(SW_SHOWMAXIMIZED)
&#; 最小化 Access 窗口
&#; ?fSetAccessWindow(SW_SHOWMINIMIZED)
&#; 隱藏 Access 窗口
&#; ?fSetAccessWindow(SW_HIDE)
&#; 正常顯示 Access 窗口
&#; ?fSetAccessWindow(SW_SHOWNORMAL)
&#;
Dim loX As Long
Dim loForm As Form
On Error Resume Next
loX = ShowWindow(hWndAccessApp nCmdShow)
ErrClear
fSetAccessWindow = (loX <> )
End Function

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈