VB图像处理，（五）图像的色彩纠正

         For X = 0 To OutPutWid
            For Y = 0 To OutPutHei
               R = Colval(2, X, Y)                     ''''读取原来点的颜色
               G = Colval(1, X, Y)
               B = Colval(0, X, Y)
               R = .NewVal( R)                          ''''查表得到新的颜色
               G = .NewVal( G)
               B = .NewVal( B)
               ColOut(2, X, Y) = R                    ''''把新的颜色放到输出数组中
               ColOut(1, X, Y) = G
               ColOut(0, X, Y) = B
            Next
         Next

   End With

Done = True
TimeFilter = timeGetTime - TimeFilter
Exit Sub
ErrLine:
Done = True
MsgBox Err.Description
End Sub

如果读者对这个过程中的一些数组和变量不清楚，请参考我前面的几篇文章，其中有详细说明：
VB图像处理，（一）像素的获取和输出

VB图像处理，（二）二次线性插值的应用

VB图像处理，（三）几个常用滤镜的实现1

VB图像处理，（四）几个常用滤镜的实现2

下一篇将继续为大家讲述颜色对比度和亮度的调节算法，以及彩色图片转换到灰度图片的算法。
不要以为这个很简单，中间还是有一些小问题要注意的哦。

（这里只是说了我自己在写程序的时候用到的方法，存在很多的不足。并且因为在贴上来的时候作了部分修改，可能会存在部分错误，请各位高手不吝赐教，将您用到的更好的方法提供一下，我将不胜感激。）

上一页  [1] [2] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18