隱藏和回顯菜單欄.doc

《隱藏和回顯菜單欄.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、隱藏和回顯菜單欄2001-07-10文章編號：000064提交人：Melon閱讀次數(shù)：1116分兩個(gè)熱點(diǎn)：在整個(gè)form中要定一個(gè)全局變量DimhmenuAsLong熱點(diǎn)1：（隱藏菜單欄）DeclareFunctionGetActiveWindowLib"user32.dll"()AsLongDeclareFunctionGetMenuLib"user32.dll"(ByvalhmenuAsLong)AsIntegerDeclareFunctionSetMenuLib"user32.dll"(Byv

2、alhmenuAsLong,ByvalnewmenuAsLong)AsIntegerSubClick(SourceAsButton)DimhwndAsLonghwnd=GetActiveWindow()hmenu=GetMenu(hwnd)CallSetMenu(hwnd,0)EndSub熱點(diǎn)2：（回顯菜單欄）DeclareFunctionGetActiveWindowLib"user32.dll"()AsLongDeclareFunctionGetMenuLib"user32.dll"(Byvalhm

3、enuAsLong)AsIntegerDeclareFunctionSetMenuLib"user32.dll"(ByvalhmenuAsLong,ByvalnewmenuAsLong)AsIntegerSubClick(SourceAsButton)DimhwndAsLonghwnd=GetActiveWindow()IfhmenuThenCallSetMenu(hwnd,hmenu)ElseMsgbox"現(xiàn)在菜單正在顯示"EndIfEndSub