إصدار جديد من فورم (RGB Color Codes) إهداء للأستاذ الفاضل / إبن مصر

[الجموعي]

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

بعد الإصدار الذي طرحته قبل أيا والذي تحت عنوان

هدية لمحبي الألوان والتصميم فورم لمعرفة رموز الالوان

أقدم لكم

الإصدار جديد من فورم

RGB Color Codes Chart

 

واجهة الفورم

 

 

 

نأتي الأن لشرح الفورم

 

1) نقوم بإنشاء 3 ============ ScrollBar

نسميها كالتالي:

RGB_Red

RGB_Green

RGB_Blue

خصائصها موضحة في الصورة التالية

أنا إخترت RGB_Red

وهكذا مع بقية ScrollBar

 

 

2) نقوم بإنشاء 3 =========== TextBox

نسميها على النحو التالي

TRed

TGreen

TBlue

خصائصها موضحة في الصورة التالية

أنا إخترت TRed

وهكذا مع بقية TextBox

 

 

 

3) نقوم بإنشاء ========== Label

نسميه بإسم

RGB_Color

خصائصه موضحة في الصورة التالية

 

4) نقوم بإنشاء ========== CommandButton

نسميها بإسم

Cmd_Copy

خصائصه موضحة في الصورة التالية

 

 

نأتي إلى المرحلة المهمة وهي إدراج الاكواد

1) في حدث ScrollBar

مثال: أنا أخترت ScrollBar الأحمر

وهكذا مع باقي ScrollBar

Private Sub RGB_Red_Change()
RGB_Color.BackColor = RGB(TRed, TGreen, TBlue) 'والقيم تأخذ من مربعات النص الثلاث RGBالليبل المسمى(RGB_Color) عند تعبئة بالون  يساوي
Me.TRed = RGB_Red ' هنا قيمة مربع النص تساوي قيمةScrollBar
End Sub

2) في حدث TextBox

مثال: أنا أخترت TextBox الأحمر

وهكذا مع باقي TextBox

Private Sub TRed_Change()
RGB_Red = Me.TRed ' هنا قيمة( ScrollBar) تساوي قيمة مربع النص
End Sub

3) في حدث CommandButton

زر النسخ

Cmd_Copy

نستعمل الكود التالي

Private Sub Cmd_Copy_Click()
Dim myClipbd As New DataObject
    With myClipbd
        .SetText "RGB" & " " & "(" & Me.TRed & "," & "  " & Me.TGreen & "," & "  " & Me.TBlue & ")"
         .PutInClipboard
    End With
MsgBox "تم النسخ بنجاح"
End Sub

عند لصق الكود يكون على الشكل التالي

RGB (150,  103,  53)

أتمنى الشرح والفكرة نالت إعجابكم

تم بحمد الله وتوفيقه

أترككم مع الملف المرفق

RGB Color New.rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

ربنا يبارك فيك أخي الجموعي وجزاكم الله خير الجزاء

عمل في منتهى الروعة والإبداع

[الجموعي]

 

بسم الله ما شاء الله

ربنا يبارك فيك أخي الجموعي وجزاكم الله خير الجزاء

عمل في منتهى الروعة والإبداع

 

 

أستاذي الفاضل نورت صفحتي برودك العطرة

جزاك الله كل الخير

كل هذه الاعمال  بفضل الله وبفضلكم

الي يحفظهم من كل سوء

ودي وتقديري

[ibn_egypt]

اخى الفاضل الجموعي

 

عمل أكثر من رائع .. سلمت يمينك وجعله الله في ميزان حسناتك 

 

هدية مقبولة منك أخى الكريم وأدعوا الله ان ينفع بك الإسلام والمسلمين

 

بالفعل اى متعامل مع الفورم والاكواد لا يستطيع الاستغناء عن الألوان ونسب ال RGB

 

 تحياتي  

[الصـقر]

اخى الكريم

عمل مميز من استاذ رائع

بضيفها للمكتبة عندى لانى بعتز بالكنوز

تقبل تحياتى

[ابو تراب]

ما شاء الله تبارك الله ولا قوة الا بالله

 

جزاك الله خيرا استاذ الجموعي على العمل الاكثر من رائع...

 

colors give life flavor

 

 

[الجموعي]

 

اخى الفاضل الجموعي

 

عمل أكثر من رائع .. سلمت يمينك وجعله الله في ميزان حسناتك 

 

هدية مقبولة منك أخى الكريم وأدعوا الله ان ينفع بك الإسلام والمسلمين

 

بالفعل اى متعامل مع الفورم والاكواد لا يستطيع الاستغناء عن الألوان ونسب ال RGB

 

 تحياتي  

 

 

أستاذي القدير شكرا على هذه الكلمات الطيبه

والشكر ايضا لقبولك هذه الهدية المتواضعه

بارك الله فيك وفي مساعيك والله لا يحرمنا من إبدعاتك

تحياتي

[الجموعي]

 

اخى الكريم

عمل مميز من استاذ رائع

بضيفها للمكتبة عندى لانى بعتز بالكنوز

تقبل تحياتى

 

 

أستاذي الكريم

والله شرف لي إضافة هذا العمل المتواضع لمكتبتك

 سعدت بردك الرائع جدا

بارك الله فيك

بالنسبة لمرتبه أستاذ بلاها فأنا مزلت طالب في مقامكم

ودي تقديري

[الجموعي]

ما شاء الله تبارك الله ولا قوة الا بالله

 

جزاك الله خيرا استاذ الجموعي على العمل الاكثر من رائع...

 

colors give life flavor

 

أستاذي القدير

فعلا

الألوان تعطي الحياة نكهة أخرى

بارك الله فيك على تنويرك متصفحي وردك العطر

بالنسبة لمرتبه أستاذ بلاها فأنا مزلت طالب في مقامكم

تحياتي

[ياسر خليل أبو البراء]

إخوتي نحن هنا كلنا أخوة لا فرق بيننا .. كلنا عائلة واحدة ، وكل متميز في جانب ، وكلنا نكمل بعضنا البعض

بارك الله في أخوتنا وفي أسرتنا الأوفيسنية

تقبلوا تحياتي      

[علي المصري]

سلمت يمينك يا عبقري

 

جزاك الله خيرا

[مختار حسين محمود]

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

 

عمل رائع تستاهل عليه  البوكيه ده أخى جموعى :fff: :fff: :fff:

[Mr. shehata]

عمل أكثر من رائع .. سلمت يمينك وجعله الله في ميزان حسناتك 

 

هدية مقبولة منك أخى الكريم وأدعوا الله ان ينفع بك الإسلام والمسلمين