隐藏notes菜单

来源:百度文库 编辑:16楼社区 时间:2021/09/21 13:17:32
拷过去放在数据库中的其他---数据库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