|
我用本论坛上的涵数: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 ************* |
|