您正在看的acce教程是:隐藏Acce窗口。GlobalCotSW_HIDE=0
GlobalCotSW_SHOWNORMAL=1
GlobalCotSW_SHOWMINIMIZED=2
GlobalCotSW_SHOWMAXIMIZED=3
ChinaItPower.ComRjH3I
DeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongChinaItPower.ComRjH3I
FunctionfSetAcceWindow(nCmdShowAsLong)
'使用举例
'最大化Acce窗口
'?fSetAcceWindow(SW_SHOWMAXIMIZED)
'最小化Acce窗口
'?fSetAcceWindow(SW_SHOWMINIMIZED)
'隐藏Acce窗口
'?fSetAcceWindow(SW_HIDE)
'正常显示Acce窗口
'?fSetAcceWindow(SW_SHOWNORMAL)
'
DimloXAsLong
DimloFormAsForm
OnErrorResumeNext
loX=ShowWindow(hWndAcceA,nCmdShow)
Err.Clear
fSetAcceWindow=(loXlt;gt;0)
EndFunction