利用PictureClip進(jìn)行圖像局部處理

2019-11-18 17:36:17

字體：大中小

供稿：網(wǎng)友

在圖像的處理過程中經(jīng)常需要對(duì)圖像進(jìn)行局部放大或其它處理操作,在VB中提供了一個(gè)非常實(shí)用的圖像處理控件PictureClip,利用此控件可以方便的完成圖像的局部放大或縮小操作。PictureClip控件的功能就是對(duì)一個(gè)原始位圖進(jìn)行剪裁,根據(jù)用戶的需要可以有兩種剪裁方法,第一種方法是確定固定的剪裁尺寸,通過確定橫向與縱向的剪裁份數(shù),控件均勻地把原始位圖分成不同的圖像塊,通過序號(hào)可以訪問每一個(gè)圖像塊,此時(shí)需要的屬性有:PicClip1.Picture:指定被剪裁的圖像;PicClip1.Cols:確定剪裁的橫向份數(shù);PicClip1.Rows:確定剪裁的縱向份數(shù);PicClip1.GraphicCell(i):訪問第i個(gè)圖像塊;另一種剪裁方法是隨機(jī)剪裁,確定剪裁的起點(diǎn),再確定需要剪裁的橫向與縱向尺寸,此固定區(qū)域內(nèi)的圖像即剪裁為一可訪問的圖像,涉及的屬性有:　　　　　　　　　　PictureClip1.ClipX:指定剪裁的橫向起點(diǎn)坐標(biāo);
　　　　　PictureClip1.ClipY:指定前裁的縱向起點(diǎn)坐標(biāo);　　　　　　　　　　　　　　　　PictureClip1.ClipHeight:指定剪裁的橫向長(zhǎng)度;　　　　　　　
　　　　　PictureClip1.ClipWidth:指定剪裁的縱向長(zhǎng)度;
　　　　　PictureClip1.Clip:訪問被剪裁的圖形;
　　還有兩個(gè)重要的屬性,即StretchX和StretchY,此屬性指定被剪裁目標(biāo)的圖像的大小,當(dāng)此值與原始位圖尺寸不相同時(shí),將引起剪裁圖像的放大或縮小,這就是利用此控件進(jìn)行圖像局部放大或縮小的原理;
　　利用上述兩種剪裁方法均可以進(jìn)行圖像的局部放大或縮小處理,但在實(shí)際應(yīng)用中還是第二種剪裁方法更為實(shí)用,在具體的編程時(shí)還應(yīng)注意以下幾點(diǎn):
　　1.在PictureClip的StretchX及其它屬性中均以象素為單位,所以在對(duì)圖像進(jìn)行操作時(shí)必須置作圖單位為象素,即使用ScaleMode=3命令;
　　2.在進(jìn)行隨機(jī)剪裁時(shí),如果使用固定的剪裁尺寸,當(dāng)剪裁坐標(biāo)移到圖像的邊緣時(shí),圖像實(shí)際尺寸小于剪裁尺寸,將引起邊界溢出,解決的辦法是始終以鼠標(biāo)坐標(biāo)點(diǎn)之后的圖像尺寸為剪裁尺寸,然后再調(diào)整StretchX及StretchY值為剪裁尺寸的固定倍數(shù),即可實(shí)現(xiàn)局部圖像固定比率的放大或縮小操作;
　　3.放大或縮小的局部圖像需要裝入圖像框或其它容器控件中,此窗口的位置必須是靈活變化的,即自動(dòng)讓開被剪裁的區(qū)域,可通過判斷被剪裁區(qū)域起點(diǎn)的位置來臨時(shí)調(diào)整圖像框Letf及Top屬性來完成;

　　在下面是一個(gè)完整的演示程序,需要在窗體中放置一個(gè)PictureClip1及兩個(gè)PictureBox控件,Picture1可為任意大小,而Picture2最好接近窗體的1/4,用于顯示局部放大或縮小的圖像,之后把下面的代碼填入相應(yīng)的事件之中,運(yùn)行程序之后,將在屏幕上顯示圖像,用鼠標(biāo)在此圖像上移動(dòng),如果按下左鍵移動(dòng)則實(shí)現(xiàn)圖像的局部放大,按下右鍵移動(dòng)實(shí)現(xiàn)圖像的局部縮小,不按下任何鍵則只在小窗口內(nèi)顯示原尺寸的局部圖像,剪裁的起點(diǎn)是鼠標(biāo)當(dāng)前位置。

　　以上程序及方法在WINDOWS95系統(tǒng)下、VB5.0環(huán)境下調(diào)試通過。

　　附原程序:（下載）
　　注釋：準(zhǔn)備窗體和圖像框
　　PictureClip1.ClipY=Y
　　PictureClip1.ClipHeight=Picture1.ScaleHeight-Y
　　PictureClip1.ClipWidth=Picture1.ScaleWidth-X
　　PictureClip1.StretchX=(Picture1.ScaleWidth-X)*num
　　　　　　　　　　PictureClip1.StretchY=(Picture1.ScaleHeight-Y)*num
　　Picture2.Picture=PictureClip1.Clip注釋：小窗口顯示圖像
EndSub->