神马文学网VB6.0应用程序界面设计探讨（大小自适应）
来源：百度文库 编辑：神马文学网 时间：2024/04/20 06:41:13
凡用过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；
调整后控件的Top属性值=(控件原Top属性值/窗体原Top属性值)*窗体.ScaleHeight；
3、实现按窗体缩放比例调整控件大小及位置的具体方法
我们知道，Resize事件是窗体响应的一个事件。当窗体第一次显示或当窗体的状态被改变时(如窗体被最大化、最小化或被还原时)该事件发生。所以只要将对控件大小、位置的调整代码写入窗体的Resize事件中便可达到目的。具体可在窗体的Resize事件过程中使用对象的Move方法：
Private Sub Form_Resize()
Object.move Newleft, Newtop, NewWidth, NewHeight
End Sub
其中：
Object是需要调整大小和位置的任意一个控件的名称；
NewLeft, NewTop, NewWidth与NewHeight分别是窗体缩放后控件应有的新的Left, Top,Width与Height的属性值，它们确定了当窗体被缩放后控件的大小和位置。NewWidth, NewHeight的值可由1中的两个公式得到:NewLeft, NewTop的值可由2中的两个公式得到。中国教程在线,http://www.5istudy.cn
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；
调整后控件的Top属性值=(控件原Top属性值/窗体原Top属性值)*窗体.ScaleHeight；
3、实现按窗体缩放比例调整控件大小及位置的具体方法
我们知道，Resize事件是窗体响应的一个事件。当窗体第一次显示或当窗体的状态被改变时(如窗体被最大化、最小化或被还原时)该事件发生。所以只要将对控件大小、位置的调整代码写入窗体的Resize事件中便可达到目的。具体可在窗体的Resize事件过程中使用对象的Move方法：
Private Sub Form_Resize()
Object.move Newleft, Newtop, NewWidth, NewHeight
End Sub
其中：
Object是需要调整大小和位置的任意一个控件的名称；
NewLeft, NewTop, NewWidth与NewHeight分别是窗体缩放后控件应有的新的Left, Top,Width与Height的属性值，它们确定了当窗体被缩放后控件的大小和位置。NewWidth, NewHeight的值可由1中的两个公式得到:NewLeft, NewTop的值可由2中的两个公式得到。中国教程在线,http://www.5istudy.cn
VB6.0应用程序界面设计探讨（大小自适应）
商务Web应用程序的界面设计（译文）
商务Web应用程序的界面设计（译文） - UCD大社区
SharpDevelop浅析_5_Windows Forms Designer 自己动手创建应用程序界面设计器
如何减小应用程序(exe)的大小?
如何减小应用程序(exe)的大小?
vb6.0中Spread输出CSV文件
VB6.0初学者的十个编程小技巧
VB6.0环境下利用Mscomm控件实现串行通信
VB.NET和VB6.0有什么区别
建站教程>CMS建站>CSS控制图片使它自适应大小代码－中国西部旅游信息网
用户体验书推荐:社交网站界面设计（web导航设计 、web信息架构 、web界面设计）
通信信号自适应滤波处理仿真研究（二）
通信信号自适应滤波处理仿真研究（二）
VB.NET和VB6.0有什么区别(转) - dlbird的博客 - 博客园
Web3.0的应用程序整合
浏览 VB6 网页类
VB6控件LISTVIEW使用指南
十个简单好用的界面设计技巧（看）
用户体验书推荐:Web界面设计（重复了）
网页界面设计
界面设计原则
方向、转折点、级别（大小）
Web2.0盈利模式探讨