急寻用户控件，用于窗体缩放！50分！！！

Question

实现功能：
放置的窗体内所有控件随窗体缩放！提供结贴！！
分不够再加！

Answer 1

一个很简单的例子：
Dim l As Single
Dim t As Single
Dim w As Single
Dim h As Single
Private Sub Form_Load()
l = Command1.Left / Me.Width
t = Command1.Top / Me.Height
w = Command1.Width / Me.Width
h = Command1.Height / Me.Height
End Sub
Private Sub Form_Resize()
Command1.Left = l * Me.Width
Command1.Top = t * Me.Height
Command1.Width = w * Me.Width
Command1.Height = h * Me.Height
End Sub

Answer 2

用 resize 这个控件吧,挺好用了,在窗体上画上去就OK了,可以解决不同分辩率下的显示问题

Answer 3

搜索本站formResizer控件？
用 resize 这个控件吧？在哪里啊？？

Answer 4

我以前在这样的代码，不过每个程序员都得拷贝至程序内。不过现在已写成OCX了。谢谢大家的支持。！！

Answer 5

有resize控件的你到www.google.com上找