Access911.net   |   a9BBS   |   OTaA System  
  搜索文章︰  
Access911歡迎您光臨  
   主頁      上傳      简体版       論壇     
設為首頁  |  加入收藏   
  
你現在的位置︰文章索引 -> 文章分類 -> 窗体  
 首頁|  近日更新|  下載  |  文章索引  |  搜索|  朮語|  承接工程|  
 
系統正在加載內容,請耐心等待...
 
 查詢
 窗体
 報表
 
 
 VBA
 函數
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 發布
 OA
 ASP/ASP.NET
 其他語言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用軟件
 參考文檔
 業主作品
 网友大作
 
 
友情鏈接
 access911.net
 
訪問人次
 1702818
 
站長 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 訂閱

顯示附加信息 >>>

如何禁止Access主窗体右上角的退出按鈕?(用代碼使ACCESS主窗体上的"X"失效)

作者︰cg1  摘自︰access911.net  ︰cg1  更新日期︰2002-11-21  瀏覽人次︰

 

問題︰

如何禁止Access主窗体右上角的退出按鈕?
用代碼使ACCESS主窗体上的“X”失效

 

 

回答︰

在程序開始的窗体里加入︰ 
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 

Private Sub FORM_Load() 

  Const MF_BYCOMMAND = &H0& 
  Const SC_CLOSE = &HF060    ''恢复按鈕的ID是︰&HF120
  Dim hMenu As Long 
   
  hMenu = GetSystemMenu(Application.hWndAccessApp, 0) 
   
  Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) 
   
End Sub 


還有個最簡單的辦法,不管按鈕id,統統關掉

Private Sub closeAll() 

  Const MF_BYCOMMAND = &H0& 
  Dim hMenu As Long 
   
  hMenu = GetSystemMenu(Application.hWndAccessApp, 0) 
  
  dim I as long
  for I=-5000 to 0 
    DeleteMenu hMenu, I, MF_BYCOMMAND 
  next I
   
End Sub


 


 

 
相關文章
     沒有手動相關文章
     如何使ACCESS主窗体右上角的一些按鈕失效(禁止),比如關閉、最大化、最小化、還原
     如何禁止/屏蔽docmd.runsql執行查詢時的提示?
 
評論
     查看或發表更多的評論,請單擊這里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期︰2000年4月2日  |  設計施工︰陳格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陳格 保留所有權利