豹子 2007-6-23 09:48
隐藏 Access 窗口
Global Const SW_HIDE = 0
:B n a^1y+o Hf
Global Const SW_SHOWNORMAL = 13B'J(q&bL8dQ&w^
Global Const SW_SHOWMINIMIZED = 27T#\6Q2n)g;Zg/Z
Global Const SW_SHOWMAXIMIZED = 3
(BE|
|?5I$G
NK6l Ob G
u(V$s0H$@.K R
~
,[C-D@_E
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
F:_8U(o(DKF
5s V
TvZJ0qW
Function fSetAccessWindow(nCmdShow As Long)6R*b8]0o%ew E
' 使用举例
w n5i(GQU_
' 最大化 Access 窗口
tvf Q0v$P
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)T
@,J`R-sv
' 最小化 Access 窗口Y E:M7g+B
' ?fSetAccessWindow(SW_SHOWMINIMIZED),E:fU8U3| l
' 隐藏 Access 窗口9l'y'k:g1A/M
|ZZ8`j
x%@
' ?fSetAccessWindow(SW_HIDE)
&^#e/u _
^ LV!}i
' 正常显示 Access 窗口
$q&C ZA^8K
' ?fSetAccessWindow(SW_SHOWNORMAL)
xd!pfT Fn;m
'
*j \3|g"s"V y;F
Dim loX As Long
,d/Y:` R R1o7_y4q
Dim loForm As Form*z[ Q(h.P.HEA
On Error Resume Next*A)Dd
K2jT7o6xa
loX = ShowWindow(hWndAccessApp, nCmdShow)'F^*C(Eo.Q
Err.Clear
'g9wK|!f
fSetAccessWindow = (loX 0)
&~b@} D9~
End Function
