[basem902]

  WindowsApplication3.rar (الحجم : 144.49 ك ب / التحميلات : 56)
  WindowsApplication3.rar (الحجم : 144.49 ك ب / التحميلات : 56) السلام عليكم ورحمة الله وبركاته 

اريد تخزين لون button backcolor 


في القاعدة واسترجاعها 

مرفق مثال 
المشكلة تخزين في لون button في القاعدة 

  Private Sub ConvertColorToString()
        Dim FontColor1 As New SolidBrush(TextBox1.ForeColor)
        Dim converter As TypeConverter = TypeDescriptor.GetConverter(GetType(Color))
        ' Saving Font object as a string
        FontTextboxColor1 = converter.ConvertToString(FontColor1)


        'المشكلة هنا في التحويل من لون البوتين الي string
        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        'Dim FontColor2 As New Color(Button3.BackColor)
        'Dim converter1 As TypeConverter = TypeDescriptor.GetConverter(GetType(Color))
        '' Saving Font object as a string
        'FontTextboxColor1 = converter1.ConvertToString(FontColor2)

        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        FontButtonColor2 = "red"
    End Sub

[silverlight]

حاول ان ستخدم الدوال التالية في التحويل من و الي

PHP كود :

   Private Function ColorToString(value As Color) As String
        Dim result As String = String.Empty
        Dim colorConverter As ColorConverter = New ColorConverter()
        result += colorConverter.ConvertToInvariantString(value)
        Return result
    End Function

    Private Function StringToColor(value As String) As Color
        Dim result As Color = CType(Nothing, Color)
        Dim colorConverter As ColorConverter = New ColorConverter()
        result = CType(colorConverter.ConvertFromInvariantString(value), Color)
        Return result
    End Function