Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
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