关闭

vb窗体让关闭按钮无效

954人阅读 评论(0) 收藏 举报
  Private   Declare   Function   GetSystemMenu   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   bRevert   As   Long)   As   Long  
  Private   Declare   Function   RemoveMenu   Lib   "user32"   (ByVal   hMenu   As   Long,   ByVal   nPosition   As   Long,   ByVal   wFlags   As   Long)   As   Long  
  Private   Const   MF_BYPOSITION   =   &H400&  
  Private   Const   MF_REMOVE   =   &H1000&  
  Private   Const   SC_CLOSE   =   &HF060&  
   
  Private   Sub   Form_Load()  
          RemoveMenu   GetSystemMenu(Me.hwnd,   0),   SC_CLOSE,   MF_REMOVE  
  End   Sub 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:134494次
    • 积分:1882
    • 等级:
    • 排名:千里之外
    • 原创:40篇
    • 转载:50篇
    • 译文:0篇
    • 评论:27条
    文章分类
    最新评论
    网络相关信息