等比缩放！

[2320475]

请问等比缩放是如何实现的。最好有思想和代码？用VB编写

[射天狼]

在RESIZE事件里写代码!

Dim lngOldW As Long, lngOldH As Long

Private Sub Form_Load()
lngOldW = Me.Width
lngOldH = Me.Height
End Sub

Private Sub Form_Resize()
If lngOldW <> Me.Width Then
Me.Height = Me.Width * 2 / 3
ElseIf lngOldH <> Me.Height Then
Me.Width = Me.Height * 3 / 2
End If

lngOldW = Me.Width
lngOldH = Me.Height
End Sub

这个比例是W:H = 3:2,你自己改吧!!