续，问一个关于窗体的问题。（急，在线等侍）

我用以下程序把窗体右上角的关闭按钮设成不可用，但不知如何恢复原状，望各位能给我贴出代码，谢谢！  
  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   Declare   Function   DrawMenuBar   Lib   "user32"   (ByVal   hwnd   As   Long)   As   Long  
  Private   Declare   Function   GetMenuItemCount   Lib   "user32"   (ByVal   hMenu   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)  
          nCount   =   GetMenuItemCount(hMenu)  
          Call   RemoveMenu(hMenu,   nCount   -   1,   MF_DISABLED   Or   MF_BYPOSITION)  
          DrawMenuBar   frm.hwnd  
  End   Sub 问题点数：20、回复次数：1Top

1 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-09-23 13:38:18 得分 20

很简单，GetSystemMenu的bRevert参数设为True  
   
   
  GetSystemMenu    
   
  VB声明    
  Declare   Function   GetSystemMenu   Lib   "user32"   Alias   "GetSystemMenu"   (ByVal   hwnd   As   Long,   ByVal   bRevert   As   Long)   As   Long    
  说明    
  取得指定窗口的系统菜单的句柄。在vb环境，“系统菜单”的正式名称为“控制菜单”，即单击窗口左上角的控制框时出现的菜单    
  返回值    
  Long，如执行成功，返回系统菜单的句柄；零意味着出错。如bRevert设为TRUE，也会返回零（简单的恢复原始的系统菜单）    
  参数表    
  参数   类型及说明    
  hwnd   Long，窗口的句柄    
  bRevert   Long，如设为TRUE，表示接收原始的系统菜单    
  注解    
  在vb里使用：系统菜单会向窗口发送一条WM_SYSCOMMAND消息，而不是WM_COMMAND消息  
     
  Top

相关问题

• 系统
• brevert
• longprivate
• getsystemmenu
• 句柄
• hmenu
• 系统菜单
• byval
• 参数
• long

• 帖主：laohui
• zyl910

• Visual Basic类图书
• Visual Basic类源码下载