识别颜色

Function 识别颜色(颜色值)
    Call Plugin.Color.ColorToRGB(颜色值, R, G, B)    
    比例总值 = R + G + B
    //防溢出
    If (R = 0) and (G = 0) and (B = 0) Then 
    	识别颜色 = "黑色系"
    	Exit Function
    End If
    //计算颜色比例
    红色比例 = R / 比例总值
    绿色比例 = G / 比例总值
    蓝色比例 = B / 比例总值
    TracePrint "红色比例:" & 红色比例 & "绿色比例:" & 绿色比例 & "蓝色比例:" & 蓝色比例
    //灰色系
    If (红色比例 > 0.32) and (红色比例 < 0.35) and (绿色比例 > 0.32) and (绿色比例 < 0.35) Then 
        If R < 32 Then 
            识别颜色 = "黑色系"
        ElseIf R > 232 Then
            识别颜色 = "白色系"
        Else 
            识别颜色 = "灰色系"
        End If
        Exit Function
    End If
    //黄色系识别
    If (红色比例 > 0.4) and (绿色比例 > 0.4) Then 
        识别颜色 = "黄色系"
        Exit Function
    End If
    //青色系识别
    If (蓝色比例 > 0.4) and (绿色比例 > 0.4) Then 
        识别颜色 = "青色系"
        Exit Function
    End If
    //品红
    If (红色比例 > 0.4) and (蓝色比例 > 0.4) Then 
        识别颜色 = "品红色系"
        Exit Function
    End If
    //红色
    If 红色比例 > 0.5 Then 
        识别颜色 = "红色系"
        Exit Function
    End If
    //绿色
    If 绿色比例 > 0.5 Then 
        识别颜色 = "绿色系"
        Exit Function
    End If
    //蓝色
    If 蓝色比例 > 0.5 Then 
        识别颜色 = "蓝色系"
        Exit Function
    End If
    识别颜色 = "没有识别到的颜色"
End Function

　　

转载于:https://www.cnblogs.com/wjcourse/p/7661537.html