科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用VB6.0快速实现图象加柔效果

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文介绍了一种实现图像加柔效果的简单算法

作者:LingLi 来源:yesky 2007年10月15日

关键字: VB6 图象 效果

  • 评论
  • 分享微博
  • 分享邮件
引言

  对一副图像处理后,可以得到各种各样的效果图。比如图像的锐化图、柔化图、浮雕效果图、复古效果图、彩色便笺效果图等,只要打开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="柔 化 图"
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章