Question

vb调整窗口大小时，限制最大最小怎么做呢？

我希望窗口可以拖动大小，拖动的过程中到一定范围就拖不动了。但并不是拖的过小之后恢复成最小大小，而是拖动过程中到了那个极限就不能再往内托

用form_resize的话拖完松开鼠标才能判断，但是我的窗体里面的控件位置和大小因为一些原因只能用和窗体的相对位置和相对大小设置，所以过小就出错

Answer 1

Me.MaxButton = False
Me.MinButton= False
这是第一种方法.在属性框中设计.
另一个就是通过API函数删除最大化最小化按钮及关闭按钮菜单.

追问

我希望窗口可以拖动大小，拖动的过程中到一定范围就拖不动了。但并不是拖的过小之后恢复成最小大小，而是拖动过程中到了那个极限就不能再往内托

追答

可以设定最大与最小值后在拖动过程中进行判断窗体大小是否到达设定值.

追问

怎么弄呢？用form_resize的话拖完松开鼠标才能判断，但是我的窗体里面的控件位置和大小因为一些原因只能用和窗体的相对位置和相对大小设置，所以过小就出错

追答

1:你就用固定窗体不就少好多事了.何必做那么多事呢
2:Private Sub Form_Paint() 用这个事件试试

Answer 2

'设定 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

Answer 3

呵呵 你好，我明白你的想法了，不过我好想也没见过 会出现能拉但到某个情况下就拉不动的情况，我觉得 拉到某个范围以外，鼠标down的时候最大值【最小值】是你自己限制的那个。。这个比较好搞点..