اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

أقدم لكم

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

RGB Color Codes Chart

 

واجهة الفورم

 

bLyquC.png

 

 

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

 

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

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

RGB_Red

RGB_Green

RGB_Blue

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

أنا إخترت RGB_Red

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

OXfeKX.png

 

 

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

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

TRed

TGreen

TBlue

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

أنا إخترت TRed

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

 

hOEupk.png

 

 

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

نسميه بإسم

RGB_Color

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

2FQm79.png

 

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

نسميها بإسم

Cmd_Copy

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

GTClDf.png

 

 

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

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

  • Like 3
قام بنشر

 

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

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

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

 

 

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

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

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

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

ودي وتقديري :fff:

قام بنشر

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

 

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

 

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

 

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

 

:fff: تحياتي :fff: 

  • Like 1
قام بنشر

اخى الكريم

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

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

تقبل تحياتى

  • Like 1
قام بنشر

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

 

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

 

colors give life flavor

 

 

  • Like 2
قام بنشر

 

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

 

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

 

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

 

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

 

:fff: تحياتي :fff: 

 

 

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

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

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

تحياتي :fff:

قام بنشر

 

اخى الكريم

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

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

تقبل تحياتى

 

 

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

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

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

بارك الله فيك

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

ودي تقديري :fff:

  • Like 1
قام بنشر

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

 

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

 

colors give life flavor

 

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

فعلا

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

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

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

تحياتي :fff:

  • Like 1
قام بنشر

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

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

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

  • Like 4
  • 8 years later...
قام بنشر

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information