拷過(guò)去放在數(shù)據(jù)庫(kù)中的其他---數(shù)據(jù)庫(kù)script
Declare Function GetActiveWindow Lib "user32.dll" () As Long
Declare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer
Dim hwnd As Long
Sub Initialize
Call HiddenMenu()
End Sub
Sub HiddenMenu()
Dim hwnd As Long
hwnd = GetActiveWindow()
Call SetMenu(hwnd,0)
End Sub
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶(hù)發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)
點(diǎn)擊舉報(bào)。