这是一个窗体内的控件能随窗体大小变化而随之变化的代码,不足的是在窗体变化中无法保证控件(或窗体)的长宽比例不变,哪位高手能想个办法,不论窗体如何变大变小,保证其高宽的比例不会变.
Private Sub Form_Load()
form1.Height = Screen.Height / 3
form1.Width = Screen.Width / 5
End Sub

Private Sub Form_Resize()
Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

'option base 0
'[context:form]
dim x0,y0 as long

sub form_initialize
x0=me.width
y0=me.height
end sub

sub form_load
dim itemx as object
for each itemx in form1
itemx.tag=itemx.left & "," & itemx.top & "," & itemx.width & "," & itemx.height
next
end sub

sub form_resize
dim itemx as object
for each itemx in form1
itemx.move split(itemx.tag,",")(0) * me.width / x0,split(itemx.tag,",")(1) * me.width / x0,split(itemx.tag,",")(2) * me.width / x0,split(itemx.tag,",")(3) * me.width / x0
next
end sub

以上是把你给出的代码优化了一下

窗体高宽比例嘛……有点难办……form_resize中试试
me.height=me.width * y0 \ x0
但可能引起窗体闪动。

BEN说说你的想法。

[此贴子已经被作者于2007-8-12 10:49:39编辑过]

谢谢版主的代码,用了一下,好像比例可以不变了,但控件无法与窗体同步,而是向相反方向,详见下面附件:

十分抱歉脑子坏了……
itemx.move split(itemx.tag,",")(0) * x0 \ me.width,split(itemx.tag,",")(1) * x0 \ me.width,split(itemx.tag,",")(2) * x0 \ me.width,split(itemx.tag,",")(3) * x0 \ me.width
这行写错了……应该反过来
itemx.move split(itemx.tag,",")(0) * me.width / x0,split(itemx.tag,",")(1) * me.width / x0,split(itemx.tag,",")(2) * me.width / x0,split(itemx.tag,",")(3) * me.width / x0
我更新上去

谢谢版主,改过来后可以实现比例不变了,就是窗体变化时会闪,不知如何克服啊?

BEN！出来！

窗体用鼠标改变大小的时候开始和结束会引起什么事件吗？

可以用个定时器

话说这本来是个好主意
但Performance还没会闪的好


LZ可以考虑。