怎樣用代碼隱藏、最大化、最小化ACCESS的主窗口

2020-03-24 19:19:09

字體：大中小

供稿：網(wǎng)友

(問) 怎樣用代碼隱藏、最大化、最小化ACCESS的主窗口? (答) 通過一函數(shù)已定義的常量fSetAccessWindow實現(xiàn)。該函數(shù)能用來完全隱藏Access窗口并將你自己的窗體顯示在桌面上。在彈出式窗體的Open事件中使用SW_HIDE參數(shù)調(diào)用fSetAccessWindow函數(shù)實現(xiàn)。注意：如果你隱藏了Access主窗口，要確定你有良好的出錯處理。因為主窗口隱藏后，一旦引發(fā)錯誤，并出錯提示窗口上點擊了“結(jié)束”按鈕，這樣不會使Access主窗口可見，并退出你自己的窗體。推薦你在你的錯誤處理程序中使用SW_SHOWNORMAL參數(shù)調(diào)用fSetAccessWindow函數(shù)來顯示Access主窗口。如果由于別的原因，Access主窗口不能顯示，那么你將只能從任務(wù)欄中關(guān)閉你的mdb，在Win9x中使用Control-Alt-Delete來結(jié)束任務(wù)，在WinNT、2000或XP中，可以右鍵單擊任務(wù)欄選擇html' target='_blank'>任務(wù)管理器來選擇該mdb結(jié)束任務(wù)。'************代碼開始**********
GlobalConstSW_HIDE=0
GlobalConstSW_SHOWNORMAL=1
GlobalConstSW_SHOWMINIMIZED=2
GlobalConstSW_SHOWMAXIMIZED=3 PrivateDeclareFunctionapiShowWindowLib"user32"_
Alias"ShowWindow"(ByValhwndAsLong,_
ByValnCmdShowAsLong)AsLong
FunctionfSetAccessWindow(nCmdShowAsLong)
'使用舉例
'最大化Access窗口
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'最小化Access窗口
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'隱藏Access窗口
' ?fSetAccessWindow(SW_HIDE)
'正常顯示Access窗口
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
DimloX AsLong
DimloFORMAsFORM
OnErrorResumeNext
SetloFORM=Screen.ActiveFORM
IfErr 0Then'沒有活動窗體noActiveFORM
IfnCmdShow=SW_HIDEThen
MsgBox"除非屏幕上有一個窗口，否則不能隱藏Access主窗口!"_
vbcr vbcr _
"CannothideAccessunless"_
"aFORMisonscreen"
Else
loX=apiShowWindow(hWndAccessApp,nCmdShow)
Err.Clear
EndIf
Else
IfnCmdShow=SW_SHOWMINIMIZEDAndloFORM.Modal=TrueThen
MsgBox"不能由屏幕上的" (loFORM.Caption+"") "窗體最小化Access主窗口!"_
vbcr vbcr _
"CannotminimizeAccesswith"_
(loFORM.Caption+"")_
"FORMonscreen"
ElseIfnCmdShow=SW_HIDEAndloFORM.PopUp TrueThen
MsgBox"不能由屏幕上的" (loFORM.Caption+"") "窗體隱藏Access主窗口!"_
vbcr vbcr _
"CannothideAccesswith"_
(loFORM.Caption+"")_
"FORMonscreen"
Else
loX=apiShowWindow(hWndAccessApp,nCmdShow)
EndIf
EndIf
fSetAccessWindow=(loX 0)
EndFunction
'************代碼結(jié)束**********html教程

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請第一時間聯(lián)系我們修改或刪除，多謝。

上一篇：要精通ACCESS需掌握的內(nèi)容

下一篇：ACCESS的參數(shù)化查詢