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

  • 相关阅读:
    并行计算上机代码
    BZOJ 5170: Fable
    ANTLR4 实验总结
    ANTLR4将BF翻译成CPP
    BF语言学习
    ANTLR4将JSON翻译成XML
    ANTLR4加载csv数据
    语法分析树监听器和访问器
    数据库数据类型总结
    java介绍
  • 原文地址:https://www.cnblogs.com/todd/p/395938.html
Copyright © 2011-2022 走看看