vb 如何设计窗体大小不能拖动
来源:百度知道 编辑:UC知道 时间:2024/06/10 11:05:11
同时
最大化按钮不能用
最小化按钮能用
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
先把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
Pr