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

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

(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) 

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

Mohamed20

السرور

Mohamed20

السرور