vb form的那个属性是控制不能改变窗口大小的？

Question

BorderStyle 属性vbBSNone            0   无（没有边框或与边框相关的元素）。 
vbFixedSingle       1   固定单边框。可以包含控制菜单框，标题栏，“最大化”按钮，和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。 
vbSizable           2  （缺省值）可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。 
vbFixedDouble       3   固定对话框。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸。 
vbFixedToolWindow   4   固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。  
vbSizableToolWindow 5   可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。  

Answer 1

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_THICKFRAME = &H40000Private Const GWL_STYLE = (-16)Private Sub Form_Load()
    Dim TempLng As Long
    
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng And Not WS_THICKFRAME
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    
End Sub