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

  • 相关阅读:
    大数据组件原理总结-Hadoop、Hbase、Kafka、Zookeeper、Spark
    淘宝搜索引擎的缓存机制入门总结
    Log4j写日志文件使用详解
    storm入门(一):storm编程框架与举例
    storm入门(二):关于storm中某一段时间内topN的计算入门
    关于京东推荐模型的阅读理解
    运维开发入门记录
    Redis 3.0.0 集群部署
    Redis集群部署
    秘籍
  • 原文地址:https://www.cnblogs.com/todd/p/395938.html
Copyright © 2011-2022 走看看