vb 如何实现当拉动窗体尺寸缩小到一定程度后,不再变小,如何实现?在线等!谢谢!(窗体尺寸可以变化,限制一直变小!)

Question

如何实现当拉动窗体尺寸缩小到一定程度后,不再变小,如何实现?在线等!谢谢!(窗体尺寸可以变化,限制一直变小!) 

Answer 1

Private Sub Timer1_Timer()If Form1.Width <= 3500 Then
 Form1.Width = 3500
 
 End If
 
 
 If Form1.Height <= 3500 Then
  Form1.Height = 3500End IfEnd Sub

Answer 2

在 Form_Resize 事件里面判断即可

Answer 3

简单的处理办法。
参考这个贴子 4F :
http://topic.csdn.net/u/20091130/13/854372C1-9435-4B5D-82D9-3CFB0BA9CF94.html

Answer 4

Dim w
Dim hPrivate Sub Form_Load()
w = Me.Width
h = Me.Height
End SubPrivate Sub Form_Resize()
If Me.Width < 2000 Then Me.Width = 2000
If Me.Height < 2000 Then Me.Height = 2000
If Me.Width > w Then Me.Width = w
If Me.Height > h Then Me.Height = h
End Sub