隐藏notes菜单

来源:百度文库 编辑:神马文学网 时间:2024/04/30 21:14:14
拷过去放在数据库中的其他---数据库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