+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : Color.FromArgb (/showthread.php?tid=18040)
Color.FromArgb - Mohamed20 - 16-11-16
اريد تغير الون باستخدام Color.FromArgb
بهذه الطريقة
كود :
Dim xmlDoc As New Xml.XmlDocument
xmlDoc.Load(Application.StartupPath + "\color.cfg")
For Each node As XmlNode In xmlDoc.FirstChild
Me.Button1.BackColor = Color.FromArgb(node.Attributes("Colors").Value)
Nextلاكن يوجد خطاء فى
كود :
Me.Button1.BackColor = Color.FromArgb(node.Attributes("Colors").Value)هذا الذى يوجد فى الملف
كود :
<Settings>
<Load Colors="0,0,0" />
</Settings>RE: Color.FromArgb - السرور - 16-11-16
اخوي، هذا تعديل
PHP كود :
Dim xmlDoc As New Xml.XmlDocument
xmlDoc.Load(Application.StartupPath + "\color.cfg")
For Each node As XmlNode In xmlDoc.FirstChild
Dim v As String = node.Attributes("Colors").Value
Dim c As Color = Color.FromArgb(v.Split(",")(0), v.Split(",")(1), v.Split(",")(2))
Me.Button1.BackColor = c
Next
RE: Color.FromArgb - Mohamed20 - 16-11-16
(16-11-16, 04:54 AM)السرور كتب : اخوي، هذا تعديل
PHP كود :
Dim xmlDoc As New Xml.XmlDocument
xmlDoc.Load(Application.StartupPath + "\color.cfg")
For Each node As XmlNode In xmlDoc.FirstChild
Dim v As String = node.Attributes("Colors").Value
Dim c As Color = Color.FromArgb(v.Split(",")(0), v.Split(",")(1), v.Split(",")(2))
Me.Button1.BackColor = c
Next
جزاك الله خير
RE: Color.FromArgb - السرور - 16-11-16
وجزاك اخوي،
اذا كنت انت اللي بتعمل الملف color.cfg انصحك لا تستخدم التنسيق 0,0,0
حول اللون لرقم من نوع integer بهذه الطريقة
PHP كود :
node.Attributes("Colors").Value = Color.FromArgb(120, 140, 170).ToArgb
او
node.Attributes("Colors").Value = Color.Red.ToArgb
وفي هالحالة تقدر تستخدم
PHP كود :
Me.Button1.BackColor = Color.FromArgb(node.Attributes("Colors").Value)