+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تخزين لون button في القاعدة (/showthread.php?tid=14411)
تخزين لون button في القاعدة - basem902 - 17-01-16
[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
RE: تخزين لون button في القاعدة - silverlight - 17-01-16
حاول ان ستخدم الدوال التالية في التحويل من و الي
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