请问怎么样去掉MDI窗体的最大化按钮？最好能保留最小化按钮。

有源代码最佳。 问题点数：20、回复次数：7Top

1 楼neweguo（小牛）回复于 2001-05-21 12:26:00 得分 10

hMenu   =   GetSystemMenu(Me.hWnd,   False)  
  Me.Top   =   0  
  Me.Left   =   0  
  Me.WindowState   =   2  
  DeleteMenu   hMenu,   4,   &H400&     '最大化  
  DeleteMenu   hMenu,   2,   &H400&   '移动  
  DeleteMenu   hMenu,   1,   &H400&     '大小  
  'DeleteMenu   hMenu,   0,   &H400&     '恢复  
  Top

2 楼tyd163xx（问人、答人）回复于 2001-05-21 12:44:00 得分 0

能否同时把最大化按钮去掉或变灰？Top

3 楼tyd163xx（问人、答人）回复于 2001-05-21 13:05:00 得分 0

哦，大伙都午睡去了吗？neweguo(new)还在吗？Top

4 楼yeya（鸭鸭）回复于 2001-05-21 13:44:00 得分 0

我睡午觉刚醒，就有收获，不错。呵呵：Top

5 楼DimVar（.Net中...）回复于 2001-05-21 14:04:00 得分 10

Private   Declare   Function   SetWindowLong   Lib   "user32"   Alias   "SetWindowLongA"   (ByVal   hwnd   As   Long,   ByVal   _  
  nIndex   As   Long,   ByVal   dwNewLong   As   Long)   As   Long  
   
  Private   Declare   Function   GetWindowLong   Lib   "user32"   _  
  Alias   "GetWindowLongA"   (ByVal   hwnd   As   Long,   ByVal   _  
  nIndex   As   Long)   As   Long  
   
  Const   WS_MINIMIZEBOX   =   &H20000  
  Const   WS_MAXIMIZEBOX   =   &H10000  
  Const   GWL_STYLE   =   (-16)  
   
  Dim   lWnd   As   Long  
  lWnd   =   GetWindowLong(Me.hwnd,   GWL_STYLE)  
   
  lWnd   =   lWnd   And   Not   (WS_MINIMIZEBOX)   'remove   maxButton  
  lWnd   =   lWnd   And   Not   (WS_MAXIMIZEBOX)   'remove   minButton  
  lWnd   =   SetWindowLong(Me.hwnd,   GWL_STYLE,   lWnd)  
  Top

6 楼tyd163xx（问人、答人）回复于 2001-05-21 14:31:00 得分 0

谢谢大家的帮助Top

7 楼longyear（龙也爱人：我用幻觉触摸你那遥远的美丽…）回复于 2001-05-22 15:49:00 得分 0

tyd163xx(我是VB初学者)　  
  你这个问题好像没有解决吗！  
  这个程序吧最大化和最小化都给Remove了！  
  怎样才能保留最小化的按钮呢？  
  Top

相关问题

• ws
• me
• h400
• lwnd
• 最小化
• 按钮
• 最大化
• deletemenu hmenu
• gwl
• byval

• 帖主：tyd163xx
• neweguo
• DimVar

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