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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
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
运行效果：