منذ حوالي شهر وضعت برنامج كان باسم "مساعدك اللوني" و قد وضعت الملف الـ EXE فقط لأن البرنامج كان مازال قيد التطوير
و انتظرت ملاحظات الأعضاء و لكن للأسف اقتصر الأمر على بعض التشكرات
و قد قمت بتطوير البرنامج على أن يعطي قيمة HEX للون مباشرةً
و هنا سأضع البرنامج بعض التطوير مع السورس كود
:lol: :lol:
الله يوفقك ...
يبدو أنك نسيت تصحيح عنوان label1 و label2
اقتباسيبدو أنك نسيت تصحيح عنوان label1 و label2
ماذا تقصد ؟؟
فأسماء الـ Labels صحيحة :blink:
عندما شغلت البرنامج label1 & label2
لا يدلنا على شيئ و موجود بالفنكشن تشينج Label1.BackColor = Color
و أعتقد أنك تقصد رقم اللون
أولاً شكراً جزيلاً لك و يمكنك معرفة رقم اللون بالتأشير على اللون ثم الضغط على حرف M
و هذه بعض الملاحظات :
Private Function ChangeColor(ByVal Color As String) Label1.BackColor = Color Frame1.BackColor = Color Label2.BackColor = Color Frame2.BackColor = Color Form1.BackColor = Color End Function
هذه الـ Function لتغيير لون خلفية الـ Label فقط
و أما الجزء الخاص بمعرفة رقم اللون فهو
CommonDialog1.Color = Form1.BackColor CommonDialog1.ShowColor Label1.Caption = CommonDialog1.Color Label2.Caption = "&&H" & Hex(Label1.Caption)
تم تعديل هذه المشاركة بواسطة MoaM في 27 يوليو 2005 في 08:31
يرحم لي والديك .. معذرة عليمي
عدد مرات التحميل : 46 :lol:
عضو واحد فقط وضع ملاحظاته :blink:
النبهاني كتب:البرنامج لايعطي كود اللون اخي العزيز
عليك بوضع مؤشر الماوس على اللون المطلوب ثم الضغط على حرف M :rolleyes:
هذا الموضوع مغلق.
