凡用過VB編寫Windows應(yīng)用程序的用戶都可能有過這樣的經(jīng)歷:當(dāng)一個(gè)經(jīng)過精心設(shè)計(jì)的應(yīng)用程序運(yùn)行后，如果用戶重新調(diào)整了窗體的大小，則控制在窗體中的相對(duì)位置、控件與窗體的大小比例均會(huì)嚴(yán)重失調(diào)，程序的界面變得面目全非。一個(gè)好的Windows應(yīng)用程序的界面，自適應(yīng)窗體尺寸改變的能力是必不可少的。筆者在這方面做了一些探討，希望能對(duì)VB編程愛好者提供一些啟發(fā)和幫助。
　　
1、按照窗體尺寸縮放比例自動(dòng)調(diào)整控件的大小

　　窗體和控件的大小由窗體和控件的Width屬性和Height屬性確定。所以當(dāng)用戶界面設(shè)計(jì)完成之后，窗體及其內(nèi)部的各控件的Width, Height屬性便隨之確定下來；從而窗體相對(duì)于每一個(gè)控件，它們的寬度之比、高度之比均被確定。如果窗體Forml內(nèi)的一個(gè)文本框Text1的寬(即Text1的Width屬性值)為3610，高度(即Text1的Height屬性值)為1935;而窗體Form1的上述兩個(gè)值分別為4890和3615，則它們的寬度之比和高度之比分別為：361014890、193513615。當(dāng)用戶在程序啟動(dòng)后調(diào)整了窗體的尺寸，窗體的寬度和高度將分別為Form1.ScaleWidth，F(xiàn)orm1.ScaleHeight；此時(shí)應(yīng)該按上述比例來調(diào)整文本框Textl的的高度和寬度值。即：

　　(調(diào)整后的Text1的Width屬性值)/( Form1.ScaleWidth)=3610/4890；

　　(調(diào)整后的Text1的Height屬性值)/(Form1.Scale-Height)=1935/3615；

　　所以調(diào)整后的Text1的Width屬性值=(3610/4890)* Form1.ScaleWidth；

　　調(diào)整后的Text1的Height屬性值=(1935/3615) * Form1.ScaleHeight；

　　對(duì)于一般控件來說，應(yīng)該有：

　　調(diào)整后的控件的Width屬性值=(控件原Width屬性值/窗體原Width屬性值)*窗體.ScaleWidth

　　調(diào)整后的控件的Height屬性值=(控件原Height屬性值/窗體值/窗體原Height屬性值)*窗體.ScaleHeight

　　按照上述方法確定窗體縮放后控件Width和Height屬性值，則當(dāng)窗體尺寸被調(diào)整后，控件的大小將按比例得到相應(yīng)的調(diào)整。

　　2、按照窗體尺寸縮放比例自動(dòng)調(diào)整控件在窗體中的相對(duì)位置

　　控件在窗體中的位置由該控件的Left和Top屬性確定。程序啟動(dòng)后如果窗體被縮放，只要按照縮放的比例來重新調(diào)整窗體內(nèi)各控件的Left和Top屬性值即可。

　　所以根據(jù)上面介紹的原理，在窗體被縮放之后，只要按照下面的關(guān)系來設(shè)置控件的Left和Top屬性值即可。

　　調(diào)整后控件的Left屬性值=(控件原Left屬性值/窗體原Left屬性值)*窗體.ScaleWidth；

　　調(diào)整后控件的Top屬性值=(控件原Top屬性值/窗體原Top屬性值)*窗體.ScaleHeight；

　　3、實(shí)現(xiàn)按窗體縮放比例調(diào)整控件大小及位置的具體方法

　　我們知道，Resize事件是窗體響應(yīng)的一個(gè)事件。當(dāng)窗體第一次顯示或當(dāng)窗體的狀態(tài)被改變時(shí)(如窗體被最大化、最小化或被還原時(shí))該事件發(fā)生。所以只要將對(duì)控件大小、位置的調(diào)整代碼寫入窗體的Resize事件中便可達(dá)到目的。具體可在窗體的Resize事件過程中使用對(duì)象的Move方法：　　

　　Private Sub Form_Resize()

　　Object.move Newleft, Newtop, NewWidth, NewHeight

　　End Sub

　　其中：

　　Object是需要調(diào)整大小和位置的任意一個(gè)控件的名稱；

　 NewLeft, NewTop, NewWidth與NewHeight分別是窗體縮放后控件應(yīng)有的新的Left, Top,Width與Height的屬性值，它們確定了當(dāng)窗體被縮放后控件的大小和位置。NewWidth, NewHeight的值可由1中的兩個(gè)公式得到:NewLeft, NewTop的值可由2中的兩個(gè)公式得到。中國(guó)教程在線,http://www.