تغيير الألوان في الفيجول بيسك الى ألوان أخرى

[أنس دروبي]

السلام عليكم ورحمة الله وبركاته

والله أني أشتقت لكم في هذه الغيبة الطويلة ولكن بسبب الظروف القاهرة والصعبة التي نمر بها

أخواني الكرام لدي طلب لا أعرف إذا كان بسيط أم مستحيل وهو في الملف المرفق يوجد ملف إكسل ومعه صفحة ويب هي عبارة عن كودات الألوان

العالمية المعروفة باسم (Hex)

المطلوب أخواني الكرام هو كيف نسخ كودات الألوان في صفحة الويب ووضعها في خصائص زر الأمر الموجود في اليوزرفورم

لإنه عندما أقوم بنسخ كود ما من صفحة الويب الى خصائص اللون الموجودة في الفيجول بيسك يعطيني قيمة خاطئة

فهل يوجد طريقة أو كود بحيث يتعرف الفيجول بيسك على كودات ألوان جديدة غير موجودة لديه

أخوكم

أنس دروبي

Change Color.rar

[عبدالله المجرب]

اخي انس

جرب هذا اكود

راح يعطيك هذه الالوان

Private Sub CommandButton1_Click()

For E = 1 To 255

Range("A" & E).Interior.ColorIndex = Int(Rnd * 56) + 1

Next E

End Sub

[أنس دروبي]

السلام عليكم

الله يجزيك الخير أخي عبد الله

ولكن كان القصد هو ليس إظهار الألوان في الشيت وإنما نسخ كود اللون الموجود في صفحة الويب ووضع الكود في خصائص اللون للزر في اليوزرفورم بحيث أستطيع أن أقوم بتغيير لون الزر عن الألوان الرئيسية الموجودة في الفيجول البيسك

إن شاء الله أكون قد أوضحت الفكرة

والسلام عليكم

[الـعيدروس]

السلام عليكم

الاخ الفاضل Creation World

جرب المرفق

انقر على زر الفورم بتكرار ولاحظ

والسلام عليكم

Change Color_ali.rar

[أنس دروبي]

السلام عليكم ورحمة الله وبركاته

أخي أبو نصار والله اشتقت لإبداعاتك وأفكارك الجميلة

أخي قد أقتربت من المطلوب ولكن لوسمحت شاهد الملف المرفق

والسلام عليكم

أنس دروبي

Change Color.rar

[عبدالله باقشير]

السلام عليكم

جمعة مباركة

نسخنا ورقة الويب الى الملف

وعملنا جدول منها

لاستخدامه في فورم لاظهار الالوان

شاهد المرفق

2003-2007

الوان الويب.rar

[الـعيدروس]

السلام عليكم

جزاك الله خير أستاذ عبدالله فكرة جميلة جدا

الاخ الفاضل Creation World

جرب المرفق

حسب فكرتك بالرقم الموجود في خلية H4

Change Color_ALI1.rar

تم تعديل مارس 16, 2012 بواسطه alidroos

[saad abed]

اخوانى عبدالله باقشير وابونصار

ابداع بلا حدود

الله يجزيك خير اخى خبور

اعمالك كلها مراجع لنا

سعد عابد

[أ / محمد صالح]

ما شاء الله

بارك الله لكم جميعاً إخوتي

وبعد إذن أخي ابا نصار

وأخواي عبد الله

تفضل أخي الكريم Creation World

أتمنى أن يكون هذا ما تريد

mas_ChangeHexColor2Rgb.rar

[أنس دروبي]

السلام عليكم ورحمة الله وبركاته

أعتذر عن التأخير في الرد

بالنسبة لملف أخي وأستاذي أبو نصار أعطى المطلوب ولكن الكود صعب بعض الشيء وأنا علمي متواضع في لغة VBA فقد قارنته مع ملف الأستاذ محمد صالح ووجدت أن طريقته سهلة وبسيطة جداً لإنه قام بتحويل الصيغ(R,G,B) الى كودات (hex) وهذه سهولة الكود

*********************************************

وملف أخي وحبيبي في الله عبد الله باقشير الله يجزيه الخير فقد سهل علي العمل والنسخ من الويب ويصلح أن يكون في المستقبل عبارة عن مكتبة جديدة من الألوان تضاف الى لغة الفيجول بيسك مع تطبيق كود الأستاذ محمد صالح نظراً لسهولته

وعلى كل حال الله يجزيكم الخير جميعاً على حلولكم وأبداعتكم التى لاتنتهي في هذا الصرح الكريم والمميز

وبانتظار حلول أخرى أسهل لإغراء الموضوع ومشاهدته من قبل الزوار

وفي الختام السلام عليكم

أخوكم

أنس دروبي

[مجدى يونس]

افكار رائعة من اخوة افاضل

[نورسعيد]

من فضلكم

أنا كل ما أحمل أى ملفVB6 من الملفات اللى حضراتكم أرفقتوها عن أكواد الألوان ما بلاقيش فيه أى بيانات_ فتحت ال XHelp system وو جدت ماسيج فحواها The MSDN

collection does not exist. Please reinstall MSDN برجاء إفادتى ماذا أفعل ولكم جزيل الشكر

تم تعديل مارس 18, 2012 بواسطه نورسعيد

[أنس دروبي]

السلام عليكم ورحمة الله وبركاته

أخي الكريم نور سعيد المشكلة التي لديك هي عبارة عن مشكلة في نسخة الأوفيس في جهاز الكمبيوتر

لكي تحلها يجب عليك حذف النسخة ومن ثم تنزيلها من جديد

وإذا لم تنجح الطريقة يوجد طريقة أخرى لحلها

والسلام عليكم

أخوكم

أنس دروبي

[حمادة عمر]

السلام عليكم

الاستاذ القدير الكبير الرائع الجميل */ عبد الله باقشير

روووووووووووووووووووووووووووووووعــــــــــــــــــــــــــة

حضرتك والاستاذ الكبير */ ابونصار

بارك الله فيكم