所以根據(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è)公式得到。
4、窗體的多控件的處理
當(dāng)一個(gè)窗體中有多個(gè)控件時(shí)，如果對(duì)每一個(gè)控件都用上述方法處理顯然比較繁瑣。為此，以下給出一個(gè)通過編程來處理窗體內(nèi)多個(gè)控件的一般方法(注意:如果窗體內(nèi)有不可見的控件，則應(yīng)該在
程序中加入相應(yīng)的代碼以避免檢查這些控件的尺寸，否則將出錯(cuò))。
(1)自定義一個(gè)數(shù)據(jù)類型
在標(biāo)準(zhǔn)模塊的聲明段寫入：
Type cp
wp As Single
hp As Single
tp As Single
lp As Single
End Type |
(2)定義一個(gè)窗體級(jí)數(shù)組
在窗體模塊的聲明段寫入：
(3)定義一個(gè)通用過程
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 |
不難看出，上面的代碼具有普遍意義：即對(duì)于任何VB程序，只要將上面給出的代碼按照要求寫入程序中，則無論該VB程序的一個(gè)窗體中具有多少控件，均能使窗體內(nèi)的控件自適應(yīng)于窗體尺寸縮放，從而解決了控件與窗體在尺寸和位置兩方面的比例失調(diào)問題。
