1、图像加柔的原理 图像加柔效果的原理其实非常简单，可以分为以下三步进行。 第一步：对图像进行分块并选择适当的柔化算子，柔化算子决定图像加柔的效果，加柔的基本思想是某点象素的新值，由该点象素和该点象素周围的象素值共同决定。 第二步：根据加柔算子计算每个象素的新值。 第三步：利用新的象素值，显示图像得到效果图。 应该特别注意：对图像边缘象素的处理。
2、编程应用 下面我们以24位真彩图"girl.bmp"为例，给出用VB 6.0编写的程序，该程序分别在window98和Windows 2000 环境中实现，取得了良好的柔化效果。
3、 I、建立工程：启动VB6.0|新建工程|标准EXE； 程序代码： 通用声明Option ExplicitDim imagepixels(2, 1024, 1024) As Integer 注释：用来存储读入的图像数据Dim picturename, picture_savename As String
4、I、打开文件Private Sub open_Cli罕铞泱殳ck() Dim i As Integer, j As Integer Dim red As Long, green As Long, blue As Long Dim pixel As Long 注释： 设置"CancelError"为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler 注释： 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly 注释： 设置过滤器 CommonDialog1.filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|pictures(*.gif)|*.gif|pictures(*.bmp)|*.bmp" 注释： 指定缺省的过滤器 CommonDialog1.FilterIndex = 4 注释： 显示"打开"对话框 CommonDialog1.ShowOpen 注释： 显示选定文件的名字
5、picturename = CommonDialog1.FileName If picturename = "" Then Exit Sub Picture1.Picture = LoadPicture(picturename) Picture2.Picture = Picture1.Picture Picture1.Refresh Picture2.Refresh Picture1.AutoSize = True x = Picture1.ScaleWidth y = Picture1.ScaleHeight form1.Visible = False For i = 0 To y - 1 For j = 0 To x - 1 pixel& = form1.Picture1.Point(j, i) red = pixel& Mod 256 green = ((pixel& And &HFF00) / 256&) Mod 256& blue = (pixel& And &HFF0000) / 65536
6、 imagepixels(0, j, i) = red ＇分别存储像素点的ＧＲＢ值 imagepixels(1, j, i) = green imagepixels(2, j, i) = blue Next Next form1.Visible = True form1.ShowErrHandler: 注释： 用户按了"取消"按钮 Exit SubEnd Sub
7、 诔罨租磊II、保存文件Private Sub save_Click() CommonDialog2.CancelError = True 注释： 初始化&鳎溻趄酃quot;CancelError"为 True On Error GoTo ErrHandler 注释： 设置标志 CommonDialog2.Flags = cdlOFNHideReadOnly 注释： 设置过滤器 CommonDialog2.filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|pictures(*.gif)|*.gif|pictures(*.bmp)|*.bmp" 注释： 指定缺省的过滤器 CommonDialog2.FilterIndex = 4 注释： 显示"打开"对话框 CommonDialog2.ShowSave 注释： 显示选定文件的名字 picture_savename = CommonDialog2.FileName SavePicture Picture1.Image, picture_savenameErrHandler: 注释： 用户按了"取消"按钮 Exit SubEnd Sub
