VisualBasic自適應窗體設計經驗
|
凡用過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中的兩個公式得到。
4、窗體的多控件的處理
當一個窗體中有多個控件時，如果對每一個控件都用上述方法處理顯然比較繁瑣。為此，以下給出一個通過編程來處理窗體內多個控件的一般方法(注意:如果窗體內有不可見的控件，則應該在程序中加入相應的代碼以避免檢查這些控件的尺寸，否則將出錯)。
(1)自定義一個數據類型
在標準模塊的聲明段寫入：
| Type cp wp As Single hp As Single tp As Single lp As Single End Type |
(2)定義一個窗體級數組
在窗體模塊的聲明段寫入：
| Dim ap() As cp |
(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 |
以下三行需在一行內寫完
| 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程序的一個窗體中具有多少控件，均能使窗體內的控件自適應于窗體尺寸縮放，從而解決了控件與窗體在尺寸和位置兩方面的比例失調問題。