給程序變個臉



　　在VFP編制的應用系統中，一般情況下采用的是選單方式，這時除了選單條以外，屏幕的其它部分都是空白的，屏幕的顏色比較單一，十分不美觀。那么，如何在應用系統中改變屏幕窗口呢？筆者在開發(fā)應用系統時，制作了一個通用的壁紙設置程序，用來實現屏幕的壁紙功能，下面是簡要介紹實現過程。 

　　其實在VFP中實現壁紙功能是十分容易的，我們可以通過改變VFP系統中的—SCREEN.PICTURE屬性來實現。 

　　一、新建數據表 

　　首先新建一個數據表BZWJ.DBF，數據表中有兩個字段，用來存放所有的壁紙文件名，供用戶選擇使用。字段屬性如下表。 

字段名 類型 長度 
PICNAME 字符型 60 
PICWZ 字符型 1 
　　二、 新建表單 

　　利用表單設計器新建一個表單，在表單各控件分布如下圖： 

 　　在這個壁紙設置表單中，在數據環(huán)境下加入數據表BZWJ.DBF，同時表單上使用了一個列表框控件，一個圖像控件，三個命令按鈕控件，一個選項按鈕組控件和一些標簽、形狀控件組成。下面是各個控件屬性及事件代碼情況： 

　　1. 表單中屬性設置如下： 

　　FORM1.CAPTION=′壁紙設置′ 

　　FORM1.ACTIVATE事件代碼如下： 

　　SELE BZWJ 

　　LOCA FOR PICWZ=′1′ 

　　WZ1=RECN() 

　　MZ1=ALLT(BZWJ.PICNAME) 

　　2. LIST1列表框的屬性設置如下: 

　　LIST1.CONTROLSOURCE=BZWJ.PICNAME 

　　LIST1.BROWSOURCE=BZWJ.PICNAME 

　　LIST1.BROWSOURCETYPE=6－字段 

　　LIST1.CLICK EVENT事件代碼如下： 

　　MZ1=ALLT(BZWJ.PICNAME) 

　　IF THISFORM. OPTIONGROUP1.VALUE=1 

　　THISFORM.IM1.STRETCH=1 

　　ELSE 

　　THISFORM.IM1.STRETCH=2 

　　ENDIF 

　　THISFORM.IM1.PICTURE=MZ1 

　　3.COMMAND1命令按鈕的屬性設置如下： 

　　COMMAND1.CAPTION=′應用′ 

　　COMMAND1.CLICK EVENT事件代碼如下： 

　　 -SCREEN.PICTURE=MZ1 

　　WZ11=RECN() 

　　REPL PICWZ WITH ′ ′ ALL 

　　GO WZ11 

　　REPL PICWZ WITH ′1′ 

　　4.COMMAND2命令按鈕的屬性設置如下： 

　　COMMAND2.CAPTION=′確定′ 

　　COMMAND2.CLICK EVENT事件代碼如下： 

　　THISFORM.RELEASE 

　　5.COMMAND3命令按鈕的屬性設置如下： 

　　COMMAND3.CAPTION=′瀏覽′ 

　　COMMAND3.CLICK EVENT事件代碼如下： 

　　PICFILE= GETFILE(′BMP;JPG′) 

　　IF LEN(ALLT(PICFILE))>1 

　　 SELE BZWJ 

　　APPE BLAN 

　　REPL PICNAME WITH PICFILE 

　　GO BOTT 

　　THISFORM.LIST1.CLICK 

　　ENDIF 

　　6.OPTIONGROUP1選擇按鈕組的屬性設置如下： 

　　OPTION1.CAPTION=′等比填充′ 

　　OPTION2.CAPTION=′變比填充′ 

　　OPTIONGROUP1.INTERACTIVECHANGE EVENT事件代碼如下： 

　　THISFORM.IMAGE1.STRETCH=THIS.VALUE 

　　三、 運行表單 

　　全部控件屬性設置和事件代碼輸入結束后，運行這個表單，我們可以選擇列表框中任一個圖像文件作為應用程序的壁紙文件。 

　　當鼠標點擊列表框中一個文件名時，在圖像框中將對這個圖像文件進行預覽，也可以通過瀏覽按鈕查找到一個圖像文件（這里允許使用BMP和JPG格式的圖像文件）作為壁紙文件增加到列表框中，同時在壁紙數據表中增加這個圖形文件名。選擇按鈕組的屬性可改變圖像為等比或變比顯示模式。點擊“應用”按鈕后系統將更換為所選擇的圖像，同時將壁紙數據表中的標識位字段PICWZ賦值為“1"，使得系統在下次運行時自動將系統壁紙更換為所選擇的壁紙圖像，這時要在主程序（如MAIN.PRG）執(zhí)行段中加入如下代碼： 

　　… 

　　SELE BZWJ 

　　 LOCA FOR PICWZ=′1′ 

　　 WZ1=RECN() 

　　 MZ1=(BZWJ.PICNAME) 

　　—SCREEN.PICTURE=MZ1 

　　… 

　　說明：一般情況下，可以事先對壁紙圖像進行處理，使其同系統顯示器分辨率設置相符，使圖像顯示更加清晰。如當顯示器設置為800×600分辨率時，我們可以把壁紙圖像文件處理為800×600，并將文件命名為漢字名，這樣可以很直觀的表達圖像文件的內容。 




（作者：王守銀　2000年01月12日 15:06）