艹,不懂就别回答,浪费表情,把MDIChild=false,就可以了,不最大化是MaxButton设为false,不最小化MinButton设为false,如果是正解,顶一下哦
窗体不能改变大小:BorderStyle设为1、MinButton设为true。
方法一:设置窗体的BorderStyle=1
方法二:设置变量,然后用Resize事件控件控制
Dim x1 As Long, y1 As Long
Private Sub Form_Load()
x1 = Me.Width
y1 = Me.Height
End Sub
Private Sub Form_Resize()
If Me.WindowState = 0 Then
Me.Width = x1
Me.Height = y1
End If
End Sub
窗体的BorderStyle属性去设置一下,值为0、1、3、4都是不可拉伸的,为0时标题栏和关闭按钮也没有的。
窗体属性的BorderStyle里面有Fixed的和None是不能拉的