用VB6.0快速实现图象加柔效果

丿晴朗

丿晴朗

2016-01-29 12:04

用VB6.0快速实现图象加柔效果,用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="柔 化 图"

展开更多 50%)
分享

猜你喜欢

用VB6.0快速实现图象加柔效果

vb
用VB6.0快速实现图象加柔效果

在VB6.0中实现动态统计报表

编程语言 网络编程
在VB6.0中实现动态统计报表

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用VB6.0设计简易赛车游戏

编程语言 网络编程
用VB6.0设计简易赛车游戏

浅谈用VB6.0编写BO程序

编程语言 网络编程
浅谈用VB6.0编写BO程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

如何使用vb6.0来实现中文实名搜索

电脑网络
如何使用vb6.0来实现中文实名搜索

用VB6.0编写手机短信发送

编程语言 网络编程
用VB6.0编写手机短信发送

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《部落战争》极速撸资源解析

《部落战争》极速撸资源解析

邮件发送简单例子-html文件

邮件发送简单例子-html文件
下拉加载更多内容 ↓