一个小问题 如何锁定form的大小

Question

'锁定模块
'禁止调整窗口大小,位置的模块 窗口的句柄由Whwnd变量传递
Option Explicit
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Const SC_KEYMENU = &HF100&
Const SC_MAXIMIZE = &HF030&
Const SC_MINIMIZE = &HF020&
Const SC_MOVE = &HF010&
Const SC_RESTORE = &HF120&
Const SC_SIZE = &HF000&Public Sub LockWWindow(Whwnd)'hwnd是你要锁定锁定窗口的句柄
Dim hSysMenu As Long, nCnt As Long
hSysMenu = GetSystemMenu(Whwnd, False) '获得系统菜单句柄
If hSysMenu <> 0 Then '判断是否正常
nCnt = GetMenuItemCount(hSysMenu) '获得菜单的条目
  If nCnt <> 0 Then '判断是否正常
    RemoveMenu hSysMenu, SC_MAXIMIZE, MF_REMOVE '最大化
    RemoveMenu hSysMenu, SC_SIZE, MF_REMOVE '调整大小
    RemoveMenu hSysMenu, SC_MOVE, MF_REMOVE '位置是否可调
    DrawMenuBar Whwnd
   End If
End If
End Sub

Answer 1

form.borderstly=1
或3或4都可以。