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

上一节讲到的是将红、绿、蓝、紫、黄、普蓝这六个色系的颜色单独呈现出来，其余部分是灰度，效果确实不错

这一节我将处理后的颜色稍微做了修改，不再保留原有颜色，例如红色系对应单纯的红(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) ' 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,j)
                If getSingleColor(pSourceColor) = "G" Then
                    pDestColor = Color.FromArgb(0,pSourceColor.G,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,pSourceColor.B) ' pSourceColor
                Else
                    pDestColor = getAverage(pSourceColor)
                End If
                destImg.SetPixel(i,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,j)
                If getSingleColor(pSourceColor) = "P" Then
                    pDestColor = Color.FromArgb(pSourceColor.R,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,j)
                If getSingleColor(pSourceColor) = "Y" Then
                    pDestColor = Color.FromArgb(pSourceColor.R,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,j)
                If getSingleColor(pSourceColor) = "C" Then
                    pDestColor = Color.FromArgb(0,pDestColor)
            Next
        Next
        picDest.Image = destImg
    End Sub

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!