怎样固定窗口的大小，使他不不能改变（有鼠标也不能改变）?

Question

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Const SC_MAXIMIZE = &HF030&
    Private Const SC_MINIMIZE = &HF020&
    Private Const MF_BYCOMMAND = &H0&
    Private Const SC_RESTORE = &HF120
    Private Const SC_CLOSE = &HF060&
    Private Const SC_SIZE = &HF000&
    Private Const SC_MOVE = &HF010&    Private Sub Form_Load()
     Dim hMenu As Long, Success As Long
     hMenu = GetSystemMenu(hwnd, 0)
     Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
    End Sub也可以用同样方法屏蔽最大、最小、恢复、移动、关闭的系统菜单

Answer 1

e_zhima(深绿色的树)的方法可以不过这种窗体看起来不好你可以试试下面这个　form.controlbox=false

Answer 2

这是全屏蔽的，嘻嘻，你会发现你的窗体死了~~
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Const SC_MAXIMIZE = &HF030&
    Private Const SC_MINIMIZE = &HF020&
    Private Const MF_BYCOMMAND = &H0&
    Private Const SC_RESTORE = &HF120&
    Private Const SC_CLOSE = &HF060&
    Private Const SC_SIZE = &HF000&
    Private Const SC_MOVE = &HF010&    Private Sub Form_Load()
     Dim hMenu As Long, Success As Long
     hMenu = GetSystemMenu(hwnd, 0)
     Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
     Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
     Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
     Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
     Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
     Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
     
    End Sub