//计算各个色值平均差值,即颜色相似度
Public Function ColorSpace(ByVal A As Color, ByVal B As Color) As Double
ColorSpace = (Math.Abs(0.0 + A.R - B.R) + Math.Abs(0.0 + A.G - B.G) + Math.Abs(0.0 + A.B - B.B)) / 3.0
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Text = ColorSpace(Color.Red, Color.Maroon)
End Sub