top
Loading...
用VB6.0快速實現圖象加柔效果

引言

對一副圖像處理后,可以得到各種各樣的效果圖。比如圖像的銳化圖、柔化圖、浮雕效果圖、復古效果圖、彩色便箋效果圖等,只要打開Photoshop,你不能不為各種各樣的效果圖驚嘆,一副圖片竟能產生出如此之多的效果。

本文對圖像處理的特殊效果之一--加柔的實現,介紹了一種簡單的算法。

圖像加柔的原理

圖像加柔效果的原理其實非常簡單,可以分為以下三步進行。

第一步:對圖像進行分塊并選擇適當的柔化算子,柔化算子決定圖像加柔的效果,加柔的基本思想是某點象素的新值,由該點象素和該點象素周圍的象素值共同決定。

第二步:根據加柔算子計算每個象素的新值。

第三步:利用新的象素值,顯示圖像得到效果圖。

應該特別注意:對圖像邊緣象素的處理。

編程應用

下面我們以24位真彩圖"girl.bmp"為例,給出用VB 6.0編寫的程序,該程序分別在window98和Windows 2000 環境中實現,取得了良好的柔化效果。

I、建立工程:啟動VB6.0|新建工程|標準EXE;

II、控件與菜單:這里我們一共用到2個Microsoft Common Dialogue、1個Progress Bar和2個picture box、2個Label和一個含有二級的菜單。選擇視圖 | 工具欄 | 標準,在form1上畫出picturebox1,picturebox2,lable1和label2;把鼠標移在工具箱上,單擊左鍵,在彈出菜單,選取"部件",在"控件"上,選中"Microsoft Common Dialog 6.0"和"Microsoft Windows Common Controls 6.0"前面的復選框。再"應用"這時,你已經具備了所有控件。下面我們來建立菜單:選擇視圖 | 工具欄 | 窗體編輯器,建立一級菜單"文件","圖像效果";在"文件"下,建立二級菜單"打開文件""保存文件"和"退出系統"。在"圖像效果"下,建立二級菜單"柔化"。

III、調整控件后鎖定,設置控件屬性:

form1.Caption= "對24位真彩色圖像加柔" 圖1:建立好的界面



Picturebox2.ScaleMode= 3 'Pixel;
Picturebox1. ScaleMode =3 'Pixel
Lable1.Caption = "原 圖"; lable2.caption="柔 化 圖"

作者:http://www.zhujiangroad.com
來源:http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗