如何判断一个窗体正被用户拖大呢？谢谢

[chzzj]

如何判断一个窗体正被用户拖大？

[rainstormmaster]

处理窗体的resize事件

比较窗体目前的长度、宽度和载入时的长度、宽度

[rainstormmaster]

不确切，应该这样：

Dim w As Long
Dim h As Long

Private Sub Form_Load()
w = Me.Width
h = Me.Height
End Sub

Private Sub Form_Resize()
If Me.Width > w And Me.Height >= h Then
Debug.Print "放大"
ElseIf Me.Width >= w And Me.Height > h Then
Debug.Print "放大"
ElseIf Me.Width < w And Me.Height <= h Then
Debug.Print "缩小"
ElseIf Me.Width <= w And Me.Height < h Then
Debug.Print "缩小"
End If
w = Me.Width
h = Me.Height
End Sub

[hisofty]

resize事件也就是对wm_size(wm_sizing??)的封装

[chzzj]

这样重新被赋值就有道理了，学习