哪位大哥教给我VB最大化FORM同时扩大TEXT等的方法

来源：百度知道 编辑：UC知道 时间：2024/06/16 16:49:42
VB中有:

form1
text1
text2
label1

现在将form1最大化时，希望TEXT1.text和text2.text和label用计算的方法按比例扩大，以适合我希望的要求，代码怎么写才能实现这些效果？
卡巴S 你好,感谢你的帮忙.我把你的代码复制入一个新的窗体中完全可以实现,但在原来有些程序的窗体却没有效果,有可能是什么原因你知道吗?

窗体的resize事件中写代码
在窗体加载的时候就算好比例值

定义全局变量w 跟 h 就是高和宽的比值

w=text1.width / form1.width
h=text1.height / form1.height

在窗体的resize事件中代码
Private Sub Form_Resize()
text1.width=form1.width * w
text1.height=form1.hight * h
End Sub

text2的做法一样 自己研究下‘‘

你原先的控件大小也要像这样设置撒,可能你原来窗体上控件的大小也是用代码固定的吧

那个可能是有些控件本身的限制，比如组合框，工具栏等，本身是有限制的。
其实楼主的方法是不错，不过一个个去设置控件实在是太麻烦了，看看下面的代码(不过我不是原创)，很有通用性，不管你窗体上有多少控件，只要能缩放的都它都能在窗体大小改变时给你自动缩放

你看一下吧，源码下载：
http://www.ruiyuan-power.com/enlargeControl.rar

你看一下吧，源码下载：
http://www.ruiyuan-power.com/enlargeControl.rar

高度是9000缇，宽度是12000缇。
800＊600时。

private sub form_load()
me.height=screen.height
me.width=screen.