用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="柔 化 图"