fSetAccessWindow(SW_SHOWMAXIMIZED)疑问

zzsim2006

我用本论坛上的涵数:fSetAccessWindow(SW_SHOWMAXIMIZED),把放进托盘的ACCESS最大化时,不知道为什么没有还是在托盘里,换成fSetAccessWindow(3)后,ACCESS最大化了,但没有菜单和工具栏出现?
另外,发现放进托盘的fSetAccessWindow(SW_HIDE)改成fSetAccessWindow(SW_SHOWMAXIMIZED)
或fSetAccessWindow(SW_SHOWMINIMIZED)
也起的是隐藏的作用,




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 = apiShowWindow(hWndAccessApp, nCmdShow)
    Err.Clear
    fSetAccessWindow = (loX <> 0)
End Function
'************** Code End *************