怎样使窗体的大小固定？

Question

borderstyle设为1
minbutton设为true

Answer 1

你可以用
form_risize()事件來監視麼。
當觸動時你可以把窗體的 heiht .wigth 從新設置Private Sub Form_Resize()
Me.Height = 4000
Me.Width = 4000
End Sub

Answer 2

borderstyle设为1
minbutton设为true
maxbutton设为true

Answer 3

Form1.Borderstyle=1
Minbutton=True
Moveable=True

Answer 4

先把窗体的Borderstyle=1
再把窗体的Minbutton=true

Answer 5

把系统菜单项“大小”删掉，使用api GetSystemMenu DeleteMenu h
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Dim h As Long
    h = GetSystemMenu(Me.hwnd, False)
    DeleteMenu h, 2, MF_BYPOSITION