Me.MaxButton = False
Me.MinButton= False
这是第一种方法.在属性框中设计.
另一个就是通过API函数删除最大化最小化按钮及关闭按钮菜单.
'设定 form1.BorderStyle = 0 重建自己的调整窗口大小过程,下面的是自己调试的
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
If Y < 3000 Then Y = 3000
If X > 6100 Then X = 6100
If X < 3000 Then X = 3000
If Y > 6000 Then Y = 6000
Me.Width = X + 100
Me.Height = Y + 100
End Sub
呵呵 你好,我明白你的想法了,不过我好想也没见过 会出现能拉但到某个情况下就拉不动的情况,我觉得 拉到某个范围以外,鼠标down的时候最大值【最小值】是你自己限制的那个。。这个比较好搞点..