الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج كامل مع السورس كود

مغلق
بدأه MoaM في 26 يوليو 2005 · 8 رد · 1,298 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

منذ حوالي شهر وضعت برنامج كان باسم "مساعدك اللوني" و قد وضعت الملف الـ EXE فقط لأن البرنامج كان مازال قيد التطوير

/index.ph...topic=68126&hl=

و انتظرت ملاحظات الأعضاء و لكن للأسف اقتصر الأمر على بعض التشكرات

و قد قمت بتطوير البرنامج على أن يعطي قيمة HEX للون مباشرةً

و هنا سأضع البرنامج بعض التطوير مع السورس كود

:lol: :lol:

Your Color Adapter.zip

#2

الله يوفقك ...

يبدو أنك نسيت تصحيح عنوان label1 و label2

#4

عندما شغلت البرنامج label1 & label2

لا يدلنا على شيئ و موجود بالفنكشن تشينج Label1.BackColor = Color

و أعتقد أنك تقصد رقم اللون

#5

أولاً شكراً جزيلاً لك و يمكنك معرفة رقم اللون بالتأشير على اللون ثم الضغط على حرف 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

#6

يرحم لي والديك .. معذرة عليمي

#8

البرنامج لايعطي كود اللون اخي العزيز

هذا الموضوع مغلق.

مواضيع مشابهة