标签：Dim vb Color 13 pDestColor pSourceColor sourceImg net destImg

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

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

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

标签：Dim,vb,Color,13,pDestColor,pSourceColor,sourceImg,net,destImg
来源： https://blog.csdn.net/chinaherolts2008/article/details/120214273

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。