凡用過VB編寫Windows應用程序的用戶都可能有過這樣的經(jīng)歷:當一個經(jīng)過精心設(shè)計的應用程序運行后，如果用戶重新調(diào)整了窗體的大小，則控制在窗體中的相對位置、控件與窗體的大小比例均會嚴重失調(diào)，程序的界面變得面目全非。一個好的Windows應用程序的界面，自適應窗體尺寸改變的能力是必不可少的。筆者在這方面做了一些探討，希望能對VB編程愛好者提供一些啟發(fā)和幫助。
1、按照窗體尺寸縮放比例自動調(diào)整控件的大小
窗體和控件的大小由窗體和控件的Width屬性和Height屬性確定。所以當用戶界面設(shè)計完成之后，窗體及其內(nèi)部的各控件的Width, Height屬性便隨之確定下來；從而窗體相對于每一個控件，它們的寬度之比、高度之比均被確定。如果窗體Forml內(nèi)的一個文本框Text1的寬(即Text1的Width屬性值)為3610，高度(即Text1的Height屬性值)為1935;而窗體Form1的上述兩個值分別為4890和3615，則它們的寬度之比和高度之比分別為：361014890、193513615。當用戶在程序啟動后調(diào)整了窗體的尺寸，窗體的寬度和高度將分別為Form1.ScaleWidth，F(xiàn)orm1.ScaleHeight；此時應該按上述比例來調(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；
對于一般控件來說，應該有：
調(diào)整后的控件的Width屬性值=(控件原Width屬性值/窗體原Width屬性值)*窗體.ScaleWidth
調(diào)整后的控件的Height屬性值=(控件原Height屬性值/窗體值/窗體原Height屬性值)*窗體.ScaleHeight
按照上述方法確定窗體縮放后控件Width和Height屬性值，則當窗體尺寸被調(diào)整后，控件的大小將按比例得到相應的調(diào)整。
2、按照窗體尺寸縮放比例自動調(diào)整控件在窗體中的相對位置
控件在窗體中的位置由該控件的Left和Top屬性確定。程序啟動后如果窗體被縮放，只要按照縮放的比例來重新調(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、實現(xiàn)按窗體縮放比例調(diào)整控件大小及位置的具體方法
我們知道，Resize事件是窗體響應的一個事件。當窗體第一次顯示或當窗體的狀態(tài)被改變時(如窗體被最大化、最小化或被還原時)該事件發(fā)生。所以只要將對控件大小、位置的調(diào)整代碼寫入窗體的Resize事件中便可達到目的。具體可在窗體的Resize事件過程中使用對象的Move方法：
Private Sub Form_Resize()
Object.move Newleft, Newtop, NewWidth, NewHeight
End Sub |
其中：
Object是需要調(diào)整大小和位置的任意一個控件的名稱；
NewLeft, NewTop, NewWidth與NewHeight分別是窗體縮放后控件應有的新的Left, Top,Width與Height的屬性值，它們確定了當窗體被縮放后控件的大小和位置。NewWidth, NewHeight的值可由1中的兩個公式得到:NewLeft, NewTop的值可由2中的兩個公式得到。
4、窗體的多控件的處理
當一個窗體中有多個控件時，如果對每一個控件都用上述方法處理顯然比較繁瑣。為此，以下給出一個通過編程來處理窗體內(nèi)多個控件的一般方法(注意:如果窗體內(nèi)有不可見的控件，則應該在程序中加入相應的代碼以避免檢查這些控件的尺寸，否則將出錯)。
(1)自定義一個數(shù)據(jù)類型
在標準模塊的聲明段寫入：
Type cp
wp As Single
hp As Single
tp As Single
lp As Single
End Type |
(2)定義一個窗體級數(shù)組
在窗體模塊的聲明段寫入：
(3)定義一個通用過程
Sub ai()
Dim i As Integer
For i=0 To Controls.Count-1
With ap(i)
.wp=Controls(i).Width/Form1.ScaleWidth
.hp=Controls(i).Height/Form1.ScaeHeight
.lp=Controls(i).Left/Form1.DcaleWidth
.tp=COntrols(i)，Top/Form1.ScaleHeight
End With
Next i
End Sub |
(4)在窗體的Load事件過程中寫入代碼：
Private Sub Form_Load()
ReDim ap (0 To Controls.Count-1)
ai
End Sub |
(5)在窗體的Resize事件過程中寫入代碼：
Private Sub Form_Resize()
Dim i As Integer
For i=0 To Controls.Count-1 |
以下三行需在一行內(nèi)寫完
Controls(i).Move ap(i).1p * Form1.ScaleWidth,
ap(i).tp * Form1.ScaleHeight,ap(i).WP*Form1.ScaleWidth,
ap(i).hp * Form1.ScaleHeight
Next i
End Sub |
不難看出，上面的代碼具有普遍意義：即對于任何VB程序，只要將上面給出的代碼按照要求寫入程序中，則無論該VB程序的一個窗體中具有多少控件，均能使窗體內(nèi)的控件自適應于窗體尺寸縮放，從而解決了控件與窗體在尺寸和位置兩方面的比例失調(diào)問題。
