我是新手，请高手指点！

[[it] 本帖最后由 QWJ2008 于 2008-4-10 15:43 编辑 [/it]]

选择窗体属性里面的BorderSthle 属性
改为1 Fixed Single 就可以了

在其他的窗体可以，但在MDI窗体中，没有BorderSthle属性

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
  Private Const GWL_STYLE = (-16)
  Private Const WS_MAXIMIZEBOX = &H10000
   
  Private Sub MDIForm_Load()
          Dim lngStyle     As Long
            
          lngStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
          SetWindowLong Me.hwnd, GWL_STYLE, lngStyle Xor WS_MAXIMIZEBOX
  End Sub
亲测过，可以实现你的效果

收到的鲜花

• 论坛版主 于 2008-04-10 17:51 送鲜花  2朵  
• 论坛版主 于 2008-04-10 17:51 送鲜花  2朵  

不错啊！

厉害！谢谢你！