版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
上一节讲到的是将红、绿、蓝、紫、黄、普蓝这六个色系的颜色单独呈现出来,其余部分是灰度,效果确实不错
这一节我将处理后的颜色稍微做了修改,不再保留原有颜色,例如红色系对应单纯的红(R=Color.R,G=0,B=0)……
实现后的效果:
实现代码:
'红色强化
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim pSourceColor As Color
Dim pDestColor As Color
Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
For i As Integer = 0 To sourceImg.Width - 1
For j As Integer = 0 To sourceImg.Height - 1
pSourceColor = sourceImg.GetPixel(i, j)
If getSingleColor(pSourceColor) = "R" Then
pDestColor = Color.FromArgb(pSourceColor.R, 0, 0) ' pSourceColor
Else
pDestColor = getAverage(pSourceColor)
End If
destImg.SetPixel(i, j, pDestColor)
Next
Next
picDest.Image = destImg
End Sub
其余颜色实现代码:
'绿色强化
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim pSourceColor As Color
Dim pDestColor As Color
Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
For i As Integer = 0 To sourceImg.Width - 1
For j As Integer = 0 To sourceImg.Height - 1
pSourceColor = sourceImg.GetPixel(i, j)
If getSingleColor(pSourceColor) = "G" Then
pDestColor = Color.FromArgb(0, pSourceColor.G, 0) ' pSourceColor
Else
pDestColor = getAverage(pSourceColor)
End If
destImg.SetPixel(i, j, pDestColor)
Next
Next
picDest.Image = destImg
End Sub
'蓝色强化
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Dim pSourceColor As Color
Dim pDestColor As Color
Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
Dim R, G, B As Integer
For i As Integer = 0 To sourceImg.Width - 1
For j As Integer = 0 To sourceImg.Height - 1
pSourceColor = sourceImg.GetPixel(i, j)
If getSingleColor(pSourceColor) = "B" Then
pDestColor = Color.FromArgb(0, 0, pSourceColor.B) ' pSourceColor
Else
pDestColor = getAverage(pSourceColor)
End If
destImg.SetPixel(i, j, pDestColor)
Next
Next
picDest.Image = destImg
End Sub
'紫色强化
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim pSourceColor As Color
Dim pDestColor As Color
Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
For i As Integer = 0 To sourceImg.Width - 1
For j As Integer = 0 To sourceImg.Height - 1
pSourceColor = sourceImg.GetPixel(i, j)
If getSingleColor(pSourceColor) = "P" Then
pDestColor = Color.FromArgb(pSourceColor.R, 0, pSourceColor.B) ' pSourceColor
Else
pDestColor = getAverage(pSourceColor)
End If
destImg.SetPixel(i, j, pDestColor)
Next
Next
picDest.Image = destImg
End Sub
'黄色强化
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim pSourceColor As Color
Dim pDestColor As Color
Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
For i As Integer = 0 To sourceImg.Width - 1
For j As Integer = 0 To sourceImg.Height - 1
pSourceColor = sourceImg.GetPixel(i, j)
If getSingleColor(pSourceColor) = "Y" Then
pDestColor = Color.FromArgb(pSourceColor.R, pSourceColor.G, 0) ' pSourceColor
Else
pDestColor = getAverage(pSourceColor)
End If
destImg.SetPixel(i, j, pDestColor)
Next
Next
picDest.Image = destImg
End Sub
'普蓝强化
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Dim pSourceColor As Color
Dim pDestColor As Color
Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height)
For i As Integer = 0 To sourceImg.Width - 1
For j As Integer = 0 To sourceImg.Height - 1
pSourceColor = sourceImg.GetPixel(i, j)
If getSingleColor(pSourceColor) = "C" Then
pDestColor = Color.FromArgb(0, pSourceColor.G, pSourceColor.B) ' pSourceColor
Else
pDestColor = getAverage(pSourceColor)
End If
destImg.SetPixel(i, j, pDestColor)
Next
Next
picDest.Image = destImg
End Sub
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看 vb.net 教程 目录