منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

[attachment=9047][attachment=9047]السلام عليكم ورحمة الله وبركاته

اريد تخزين لون 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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

basem902

silverlight