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即可

  • 相关阅读:
    前端几个常用简单的开发手册拿走不谢
    初中级前端开发工程师如何提升个人能力?
    初中级前端开发工程师如何提升个人能力?
    【程序人生】那些工作之外的技术挣钱方式
    Java EE (13) -- 常用的基础结构模式
    3、数据类型
    洛谷——P2299 Mzc和体委的争夺战
    codevs——T1214 线段覆盖
    洛谷——P1106 删数问题
    洛谷——P1031 均分纸牌
  • 原文地址:https://www.cnblogs.com/todd/p/395938.html
Copyright © 2011-2022 走看看