固定窗体的大小

Question

设置Form1.MaxButton=False，也就是使窗体的最大化按钮失效，但问题是运行程序后，可以通过鼠标动态的改变窗体的大小.请问在保留最大化按钮(变为灰色）的同时，如何固定窗体的大小？

Answer 1

设置窗口的 BorderStyle 为 1
设置 MaxButton 为 False
设置 MinButton 为 True

Answer 2

Dim FrmWidth, FrmHeight As Integer
Private Sub Form_Load()
    FrmWidth = Form1.Width
    FrmHeight = Form1.Height
End SubPrivate Sub Form_Resize()
    Form1.Width = FrmWidth
    Form1.Height = FrmHeight
End Sub
如果要效果更好可以使用API来完成

Answer 3

Form属性：BorderStyle设置为Fixed Single就OK了！