有没有Resize时对控件及字体大小调整的算法（通用的）
问题点数：50、回复次数：5Top
1 楼wuhf（微风）回复于 2000-11-21 16:44:00 得分 0
我也想要!Top
2 楼cwhelucky（清风）回复于 2000-11-21 18:19:00 得分 30
我不知你是怎样想的，如果有可能做出确实是通用的，那么我想信所有的开发工具一定会将其打包进去的，你认为呢，略加以通用则可，完全通用不只是烦，更有是浪费时间，你认为呢Top
3 楼freeboy（好好学习,天天向上）回复于 2000-11-21 21:29:00 得分 0
4 楼maxzhy（大头）回复于 2000-12-12 11:13:00 得分 20
用VB6.0做的,但字体问题待解决.仅供参考,代码如下:Private ratioX() As Single, ratioY() As Single, ratioW() As Single, ratioH() As Single
Private Sub Form_Load()
ReDim ratioX(0 To Me.Count - 1)
ReDim ratioY(0 To Me.Count - 1)
ReDim ratioW(0 To Me.Count - 1)
ReDim ratioH(0 To Me.Count - 1)
Dim ctl As Control, i As Byte
i = 0
For Each ctl In Me.Controls
ratioX(i) = ctl.Left / Me.ScaleWidth
ratioY(i) = ctl.Top / Me.ScaleHeight
ratioW(i) = ctl.Width / Me.ScaleWidth
ratioH(i) = ctl.Height / Me.ScaleHeight
i = i + 1
Next
End Sub
Private Sub Form_Resize()
Dim ctl As Control, i As Byte
i = 0
For Each ctl In Me.Controls
ctl.Left = Me.ScaleWidth * ratioX(i)
ctl.Top = Me.ScaleHeight * ratioY(i)
ctl.Width = Me.ScaleWidth * ratioW(i)
ctl.Height = Me.ScaleHeight * ratioH(i)
i = i + 1
Next
End Sub
Top
5 楼maxzhy（大头）回复于 2000-12-12 11:19:00 得分 0
续:字体问题不容易,因为有些控件没有字体属性.Top
