vb.net 教程 5-13 图像处理之像素处理 8-2

青旅半醒 2022-09-11 00:14 79阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
上一节讲到的是将红、绿、蓝、紫、黄、普蓝这六个色系的颜色单独呈现出来，其余部分是灰度，效果确实不错

这一节我将处理后的颜色稍微做了修改，不再保留原有颜色，例如红色系对应单纯的红(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教程][vb.net] 目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/