تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Color.FromArgb
#1
اريد تغير الون باستخدام  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>
الرد }}}}
تم الشكر بواسطة:
#2
اخوي، هذا تعديل
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 , Mohamed20
#3
(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 

جزاك الله خير
الرد }}}}
تم الشكر بواسطة:
#4
وجزاك اخوي،

اذا كنت انت اللي بتعمل الملف color.cfg انصحك لا تستخدم التنسيق 0,0,0
حول اللون لرقم من نوع integer بهذه الطريقة
PHP كود :
node.Attributes("Colors").Value Color.FromArgb(120140170).ToArgb
او
node
.Attributes("Colors").Value Color.Red.ToArgb 

وفي هالحالة تقدر تستخدم
PHP كود :
 Me.Button1.BackColor Color.FromArgb(node.Attributes("Colors").Value
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم