منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

بسم الله الرحمن الرحيم

السلام عليكم

بادئ ذي بدأ، احب ان اشكر القائمين على هذا المنتدى على الذوق الرفيع في تصميم شاشات المنتدى

الامر الذي لفت نظري الى مايلي

لو قمت بوضع Pannel
من المعلوم ان تحديد لون خلفية البنل يكون

كود :

Me.Panel1.BackColor = Color.Azure

ولكـــــــن بفرض انني اعجبت بتدرج لون معين، مثل ( لون الخلفية المكتوب عليها منتدى فيجوال بيسك ) مثلا
وبفرض ان هدا اللون اسمه غير شهير

اظن هنا يجب معرفة قيمة رقم اللون بالنظام الست عشري

سؤالي
1- كيف يمكن معرفة رقم لون ما موجود على اي صورة

2- كيف يكون الكود من اجل اسناد قيمة رقم اللون الى البنل

والف شكر

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

تفضل اخي

التعديل على الكود لاختيار لون بالنظام hec16

كود :

Me.panel1.BackColor= System.Drawing.ColorTranslator.FromHtml("#efefef")

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

وممكن تشوف التدرجات هنا
http://www.w3schools.com/cssref/css_colors.asp

وهنا
http://www.w3schools.com/tags/ref_colorpicker.asp

ألــــــــــــــف شــــــــــــــــــــــــــــــــــــكـر

اخي / eng.khalidvb
واخي / سعود

على اجابتكما الاكثر من رائعة
بارك الله فيكما، وبهذا المنتدى

كود :

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

        Dim cd As New ColorDialog

        With cd

            If .ShowDialog = Windows.Forms.DialogResult.OK Then

                Panel1.BackColor = .Color

            End If

        End With

    End Sub

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

إضافة لما ذكره الأخوة الكرام

يمكنك الإستفادة من ملتقط اللون DreamsPicker لأخونا المبدع DreamsDotNet

بالنسبة لرسم لون متدرج لـ Panel جرب هذا الكود إن شاء الله تستفيد منه

كود :

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    ' تحديد المساحة

    Dim rect As New Rectangle(0, 0, sender.Width, sender.Height)

    ' إنشاء فرشاة متدرجة الألوان

    Dim gradientBrush As New Drawing2D.LinearGradientBrush(rect, _

                                                           System.Drawing.ColorTranslator.FromHtml("#417562"), _

                                                           System.Drawing.ColorTranslator.FromHtml("#27463A"), _

                                                           Drawing2D.LinearGradientMode.Vertical)

    ' التي حددنا فيها المطلوب في المساحة المحددة gradientBrush الرسم باستخدام الفرشاة

    e.Graphics.FillRectangle(gradientBrush, rect)

End Sub

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

السلام عليكم ورحمة الله وبركاته
راجع الرابط التالى ممكن يفيدك :
Color Names

السلام عليكم

إقتباس :راجع الرابط التالى ممكن يفيدك :
Color Names

الرابط اخي ابو ايهاب
لا يعمل

بسم الله الرحمن الرحيم

من خلال تجربتي العملية للبرنامج Dream Picker
ومن خلال الضغط على زر التقاط

والوقوف على لون معين في صورة معينة، تظهر نتيجة يعطيها البرنامج
الا ان الرقم الذي يعطيه البرنامج للدلالة على قيمة اللون ( بالنظام الست عشري) هي بعيدة كليا عن الواقع

وقد ارفقت صورتين للدلالة على ذلك ، واحدة اخذت منها قيمة اللون الازرق من خلال برنامج Dream picker
والثانية من خلال برنامج الفوتوشوب

احببت ان اطرح، ما حدث معي للتنبيه على ان القيم المعطاة من خلال برنامج دريم بيكر غير دقيقة على الاطلاق

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

(21-09-13, 09:04 PM)kafi2030 كتب : [ -> ]
بسم الله الرحمن الرحيم

من خلال تجربتي العملية للبرنامج Dream Picker
ومن خلال الضغط على زر التقاط

والوقوف على لون معين في صورة معينة، تظهر نتيجة يعطيها البرنامج
الا ان الرقم الذي يعطيه البرنامج للدلالة على قيمة اللون ( بالنظام الست عشري) هي بعيدة كليا عن الواقع

وقد ارفقت صورتين للدلالة على ذلك ، واحدة اخذت منها قيمة اللون الازرق من خلال برنامج Dream picker
والثانية من خلال برنامج الفوتوشوب

احببت ان اطرح، ما حدث معي للتنبيه على ان القيم المعطاة من خلال برنامج دريم بيكر غير دقيقة على الاطلاق

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

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

تم تعديل المرفقات الخاصة بـ DreamsPicker لاصلاح خطأ قيمة اللون

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

kafi2030

eng.khalidvb

سعود

kafi2030

ѕαLσσσмx

@@أبورائد@@

Abu Ehab

kafi2030

kafi2030

@@أبورائد@@