確定最接近的已知顏色

Question

我允許我的應用程序的用戶選擇自定義顏色，並希望爲每種顏色顯示友好名稱，而不是顯示十六進制代碼的文本表示。

如何找到給定的十六進制代碼最接近的System.Drawing.Color？

Answer 1

希望這有助於有人...

Public Function GetClosestColor(hex_code As String) As Color 
    Dim c As Color = ColorTranslator.FromHtml(hex_code) 
    Dim closest_distance As Double = Double.MaxValue 
    Dim closest As Color = Color.White 

    For Each kc In [Enum].GetValues(GetType(KnownColor)).Cast(Of KnownColor).Select(Function(x) Color.FromKnownColor(x)) 
     'Calculate Euclidean Distance 
     Dim r_dist_sqrd As Double = Math.Pow(CDbl(c.R) - CDbl(kc.R), 2) 
     Dim g_dist_sqrd As Double = Math.Pow(CDbl(c.G) - CDbl(kc.G), 2) 
     Dim b_dist_sqrd As Double = Math.Pow(CDbl(c.B) - CDbl(kc.B), 2) 
     Dim d As Double = Math.Sqrt(r_dist_sqrd + g_dist_sqrd + b_dist_sqrd) 

     If d < closest_distance Then 
      closest_distance = d 
      closest = kc 
     End If 
    Next 

    Return closest 
End Function