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