26-09-13, 07:22 AM
السلام عليكم ورحمة الله وبركاته
يمكن ذلك إذا كان متوفر اسم يوافق قيمة اللون كالتالي (يجب وضع قيم مكان red و green و blue)
السلام عليكم ورحمة الله وبركاته
يمكن ذلك إذا كان متوفر اسم يوافق قيمة اللون كالتالي (يجب وضع قيم مكان red و green و blue)
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim clr As Color = Color.FromArgb(red, green, blue)
TextBox1.Text = GetColorName(clr)
End Sub
Public Function GetColorName(ByVal color As Color) As String
For Each c As KnownColor In [Enum].GetValues(GetType(KnownColor))
If color.FromName([Enum].GetName(GetType(KnownColor), c)).ToArgb = color.ToArgb Then
Return [Enum].GetName(GetType(KnownColor), c)
End If
Next
End Functionالسلام عليكم ورحمة الله وبركاته