vb6.0 自适应窗体的编写
2007-11-25 14:58:47|分类：vb
开发 |字号订阅
凡用过 VB 编写 Windows 应用程序的用户都可能有过这样的经历:当一个经过精心设计的应
用程序运行后，如果用户重新调整了窗体的大小，则控制在窗体中的相对位置、控件与窗
体的大小比例均会严重失调，程序的界面变得面目全非。一个好的 Windows 应用程序的界
面，自适应窗体尺寸改变的能力是必不可少的。笔者在这方面做了一些探讨，希望能对 VB
编程爱好者提供一些启发和帮助。
1、按照窗体尺寸缩放比例自动调整控件的大小
窗体和控件的大小由窗体和控件的 Width 属性和 Height 属性确定。所以当用户界面设
计完成之后，窗体及其内部的各控件的 Width, Height 属性便随之确定下来；从而窗体相对
于每一个控件，它们的宽度之比、高度之比均被确定。如果窗体 Forml 内的一个文本框
Text1 的宽(即 Text1 的 Width 属性值)为 3610，高度(即 Text1 的 Height 属性值)为 1935;而
窗体 Form1 的上述两个值分别为 4890 和 3615，则它们的宽度之比和高度之比分别为：
361014890、193513615。当用户在程序启动后调整了窗体的尺寸，窗体的宽度和高度将
分别为 Form1.ScaleWidth，Form1.ScaleHeight；此时应该按上述比例来调整文本框 Textl
的的高度和宽度值。即：
(调整后的 Text1 的 Width 属性值)/( Form1.ScaleWidth)=3610/4890；
(调整后的 Text1 的 Height 属性值)/(Form1.Scale-Height)=1935/3615；
所以调整后的 Text1 的 Width 属性值=(3610/4890)* Form1.ScaleWidth；
调整后的 Text1 的 Height 属性值=(1935/3615) * Form1.ScaleHeight；
对于一般控件来说，应该有：
调整后的控件的 Width 属性值=(控件原 Width 属性值/窗体原 Width 属性值)*窗
体.ScaleWidth
调整后的控件的 Height 属性值=(控件原 Height 属性值/窗体值/窗体原 Height 属性值)*窗
体.ScaleHeight
按照上述方法确定窗体缩放后控件 Width 和 Height 属性值，则当窗体尺寸被调整后，控件
的大小将按比例得到相应的调整。
2、按照窗体尺寸缩放比例自动调整控件在窗体中的相对位置
控件在窗体中的位置由该控件的 Left 和 Top 属性确定。程序启动后如果窗体被缩放，
只要按照缩放的比例来重新调整窗体内各控件的 Left 和 Top 属性值即可。
所以根据上面介绍的原理，在窗体被缩放之后，只要按照下面的关系来设置控件的
Left 和 Top 属性值即可。
调整后控件的 Left 属性值=(控件原 Left 属性值/窗体原 Left 属性值)*窗体.ScaleWidth；
