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,sourceImg.Width,sourceImg.Height),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,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,imageAttributes)

        picDest.Image = destImg
    End Sub

运行效果：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程目录

vb.net 教程 5-16 图像处理之ImageAttributes 类1 伽玛、阈值和颜色替换

猜你在找的VB相关文章