17-01-16, 12:18 PM
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