時間：2003-12-20 23:11 來源：vbeden 作者：未知 閱讀：次

有時候，我們希望在我們的程序執(zhí)行中，將任務(wù)欄隱藏，讓桌面變得比較清爽，等到我們的程序執(zhí)行完畢之后，再將任務(wù)欄顯示出來，這時就要用到 SetWindowPos 這個 API 了！

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80 '隱藏視窗
Const SWP_SHOWWINDOW = &H40 '顯示視窗

'在程序中若要隱藏任務(wù)欄

Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

'在程序中若要再顯示任務(wù)欄

Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

(責(zé)任編輯：admin)

上一篇：沒有了
下一篇：API實(shí)現(xiàn)的延時函數(shù)

• ·API函數(shù)詳細(xì)解釋
• ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
• ·Access利用api實(shí)現(xiàn)打開/關(guān)閉光驅(qū)
• ·應(yīng)用程序開機(jī)自動啟動（注冊表操作技巧
• ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦
• ·什么是ADP,了解ADP的優(yōu)缺點(diǎn)
• ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
• ·[技巧分享]多條Shell語句執(zhí)行導(dǎo)致判斷
• ·在access中可以調(diào)用API函數(shù)GetFileInfo
• ·Access API集中營--增加臨時使用的字體
• ·API ShellExecute 功能說明及應(yīng)用示例
• ·在VB中使用API函數(shù)(什么是API? )
• ·API實(shí)現(xiàn)完美的圖片出現(xiàn)效果（轉(zhuǎn)）
• ·API 設(shè)置調(diào)整系統(tǒng)當(dāng)前時間
• ·如何檢測以及設(shè)置鍵盤狀態(tài)
• ·不關(guān)閉當(dāng)前數(shù)據(jù)庫COPY當(dāng)前數(shù)據(jù)庫