谁知道form Resize时对控件大小调整的算法?当窗体变得很小时,控件尺寸无法计算正确
Private Sub Form_Resize()
Dim a As Single
Static OldHeight As Single
If OldHeight = 0 Then OldHeight = Me.ScaleHeight
Command1.Height = Command1.Height * Me.ScaleHeight / OldHeight
OldHeight = Me.ScaleHeight
End Sub