[Mohamed20]

اريد تغير الون باستخدام  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>

[السرور]

اخوي، هذا تعديل

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 


[Mohamed20]

(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 


جزاك الله خير

[السرور]

وجزاك اخوي،

اذا كنت انت اللي بتعمل الملف 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)