zoukankan      html  css  js  c++  java
  • 如何去掉子窗体的关闭按钮.右上角的那个X

    如何去掉子窗体的关闭按钮.右上角的那个X

    Private   Declare   Function   GetSystemMenu   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   bRevert   As   Long)   As   Long 
      Private   Declare   Function   GetMenuItemCount   Lib   "user32"   (ByVal   hMenu   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   Declare   Function   DrawMenuBar   Lib   "user32"   (ByVal   hwnd   As   Long)   As   Long 
      Private   Const   MF_BYPOSITION   =   &H400& 
      Private   Const   MF_DISABLED   =   &H2& 
      
      Public   Sub   DisableX(Frm   As   Form) 
      Dim   hMenu   As   Long,   nCount   As   Long 
      
      '获得窗口系统菜单的菜单句柄 
      hMenu   =   GetSystemMenu(Frm.hwnd,   0) 
      '得到hMenu指定的菜单的菜单项数目 
      nCount   =   GetMenuItemCount(hMenu) 
      
      '将系统菜单的最后一个菜单项移走(最后一个菜单项是   'Close') 
      Call   RemoveMenu(hMenu,   nCount   -   1,   MF_DISABLED   Or   MF_BYPOSITION) 
      '重画系统菜单 
      DrawMenuBar   Frm.hwnd 
      End   Sub 
      
      
      Private   Sub   Command1_Click() 
      End 
      End   Sub 
      
      Private   Sub   Form_Load() 
      DisableX   Me 
      End   Sub  
     -------------------------------------------------------------------------------------------------------------------------
    在窗體的屬性窗口中,有一項為controlbox設置為false即可

  • 相关阅读:
    [转] zigbee的低功耗
    手机显示电量原理
    TinyOS总结(一)
    KingPaper初探redist 之redis设置分析
    KingPaper初探redis之redis在window xp下的安装
    Web开发必知的八种隔离级别
    目前国内著名的维客(wiki)网站
    SSH Secure Shell Client
    Java线程:volatile关键字
    JDK1.6(JDK6.0) 新特性
  • 原文地址:https://www.cnblogs.com/todd/p/395938.html
Copyright © 2011-2022 走看看