VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb.net 教程 5-16 图像处理之ImageAttributes 类1 伽玛、阈值和颜色替换

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
ImageAttributes 类:包含有关在呈现时如何操作位图和图元文件颜色的信息
 
ImageAttributes使用简单,先是通过ImageAttributes 提供的方法快速处理图片颜色,再使用Graphics的DrawImage()方法指定imageAttributes参数即可。
 
 
 
以下用代码方式来说明ImageAttributes 的一些方法,使用代码前,必须 Imports System.Drawing.Imaging:
 
 
 
改变图像伽玛值,注意典型值为 gamma 参数是从 1.0 到 2.2 ; 但是,往往在 0.1 到 5.0 的值可能会证明在某些情况下很有用,代码中使用的是0.5:
 
    '伽玛
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
 
        Dim imageAttributes As New ImageAttributes()
        imageAttributes.SetGamma(0.5F)
        Dim g As Graphics = Graphics.FromImage(destImg)
        g.DrawImage(sourceImg, New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), 0, 0, sourceImg.Width, sourceImg.Height,
                    GraphicsUnit.Pixel, imageAttributes)
 
        picDest.Image = destImg
    End Sub
运行效果:
 
 
 
 
 
改变图像阈值,阈值大小应介于 0 和 1,代码中使用的是0.7:
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
 
        Dim imageAttributes As New ImageAttributes()
        imageAttributes.SetThreshold(0.7F)
        Dim g As Graphics = Graphics.FromImage(destImg)
        g.DrawImage(sourceImg, New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), 0, 0, sourceImg.Width, sourceImg.Height,
                    GraphicsUnit.Pixel, imageAttributes)
 
        picDest.Image = destImg
    End Sub
运行效果:
 
 
 
 
颜色替换:
 
    '颜色替换
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
 
        Dim mycolormap(0) As ColorMap
        mycolormap(0) = New ColorMap()
 
        mycolormap(0).OldColor = Color.Black
        mycolormap(0).NewColor = Color.Red
 
        Dim imageAttributes As New ImageAttributes()
        imageAttributes.SetRemapTable(mycolormap)
        Dim g As Graphics = Graphics.FromImage(destImg)
        g.DrawImage(sourceImg, New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), 0, 0, sourceImg.Width, sourceImg.Height,
                    GraphicsUnit.Pixel, imageAttributes)
 
        picDest.Image = destImg
    End Sub
运行效果:
 
 
 
 
 
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识,请参看 vb.net 教程 目录
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/72582890

相关教程