VFP 愛用者社區

[Ruey]

VFP中流覽大尺寸圖像的方法
http://www.ithome-cn.net/technology/fox/fox86.htm
王守銀
　　使用過VFP6.0的用戶都會知道，利用表單設計器中所提供的圖像控制項可以在表單中顯示一幅圖像檔。但在使用這個圖像控制項過程中，當處理的一幅圖像的尺寸大小不超過這個圖像控制項的大小時，顯示效果比較好，而當一個圖像檔的尺寸比較大時，由於圖像控制項沒有提供捲軸功能，這時在螢幕中就不能顯示這幅圖像的全部內容。為了解決大尺寸圖像的顯示流覽問題，筆者在實際編程過程中，通過使用Active X控制中的Microsoft Slider Control 控制項與圖像控制項的結合，實現了對任意尺寸的JPG、BMP格式圖像檔的流覽，具體實現步驟如下：

　　新建一個表單，表單中包括兩個按鈕控制項，兩個滑動條控制項，一個容器控制項，一個圖像控制項。

　　1.在表單增加一個容器Container1，並將容器的屬性設置如下：

　　Name=c1 ＆＆命名為C1，方便使用

　　Specialeffect=1 ＆＆(設為凹下)

　　編輯這個容器，在這個容器中放入一個圖像控制項IMAGE1，它的屬性全部採用系統預設值。

　　2.點擊表單控制項工具欄中查看類，選擇ActiveX控制項，找到Microsoft Slider Control控制項，在表單中適當位置添加二個滑動條，並將此滑動條控制項olecontrol1的屬性設置如下：

　　OLEDropMode=1

　　Orientation=1

　　＆＆1代表豎向滑動條，0代表橫向滑動條

　　Tickstyle=3

　　Selectrange=.T.

　　在控制項事件Change中加入如下代碼：

　　thisform.c1.image1.top=－this.value

　　將滑動條控制項olecontrol2的屬性設置如下：

　　OLEDropMode=1

　　Orientation=2

　　＆＆1代表豎向滑動，0代表橫向滑動

　　Tickstyle=3

　　Selectrange=.T.

　　在控制項事件Change中加入如下代碼：

　　Thisform.c1.image1.left=－This.value

　　3.添加兩個命令按鈕，按鈕COMMAND1屬性設置如下：

　　Caption=′調進圖形檔′

　　Wordwarp=.T.

　　在控制項的Click事件中加入如下代碼：

　　wjm=getfile(″jpg;bmb″)

　　Thisform.c1.image1.picture=wjm

　　Thisform.ole1.max=IIF(thisform.c1.image1.height－height1>0,thisform.c1.image1.height－height1,1)

　　Thisform.ole2.max=IIF(Thisform.c1.image1.width－width1>0,Thisform.c1.image1.width－width1,1)

　　COMMAND2屬性設置如下：

　　Caption=′退出′

　　在控制項的Click事件中加入如下代碼：

　　THISFORM.RELEASE

　　4.主表單FORM1屬性設置如下：

　　Caption=′大圖像流覽視窗′

　　FORM1的事件INIT中加入如下代碼：

　　publ width1,height1

　　width1=thisform.c1.image1.width

　　＆＆獲得圖像控制項的寬度值

　　height1=thisform.c1.image1.height

　　＆＆獲得圖像控制項的高度值

　　運行說明：將全部控制項設置完畢，運行這個表單，點擊“退出”按鈕將退出這個視窗，如需顯示一個圖像檔時，只要點擊“調進圖像檔”按鈕，這時表單中出現一個選擇檔對話方塊，通過改變驅動器、檔夾等可以選擇一個JPG、BMP類型的圖像檔，最後點確定，此時表單上的圖像視窗中將出現這幅圖的全部或部分內容，此時我們可以通過滑鼠拉動橫向滑動條中的滑動塊，來顯示圖像的左右部分內容，拉動豎向滑動條中的滑動塊，來流覽圖像的上下部分內容，這樣就可以實現流覽任意尺寸的BMP、JPG格式的圖像檔。