Question

vb 如何设计窗体大小不能拖动

vb 如何设计窗体大小不能用鼠标拖边框改变
同时
最大化按钮不能用
最小化按钮能用

Answer 1

Form1.BorderStyle = 1

BorderStyle 属性

vbFixedSingle 1 固定单边框。可以包含控制菜单框，标题栏，“最大化”按钮，和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。

2为sizeable

vbFixedDouble 3 固定对话框。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸

=======================================
给你个简单的方法

把MaxButton改为False
Private Sub Form_Resize()
Static i As Integer
If i <> 0 Then MsgBox "不可改变窗体大小"
i = i + 1
End Sub

Answer 2

先把FORM1的属性BorderStyle改为1-Fixed Single
然后把属性MinButton 改为True

注意先后顺序才可以。

就是就是你要的效果了

但是如果你想屏蔽关闭按钮的话就可以是下面的代码了

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_REMOVE = &H1000&
Private Const SC_COLSE = &HF060
Private Const SC_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020

Private Sub Form_Load()
'屏蔽关闭按钮
RemoveMenu GetSystemMenu(Form1.hWnd, 0), SC_COLSE, MF_REMOVE
End Sub

Answer 3

把窗体属性中的BorderStyle 改成 1就OK了