تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغير لون فى صورة
#1
السلام عليكم
عندى صورة فيها لون واحد فقط
انظر الصورة

اللون الرمادى
وباقى الصورة شفاف بدون لون
اريد استبدال اللون الرمادي بلون اخر
الرد }}}}
تم الشكر بواسطة:
#2
و عليكم السلام و رحمة الله و بركاته,

تفضل أخي العزيز:










تحياتي
الرد }}}}
تم الشكر بواسطة: العزابي
#3
جزاك الله خيرا أخي الكريم
ليس هذا ما اقصد

أنا اقصد الصورة موجودة في المشروع في بكتشر بوكس
أريد وضع زر للألوان يقوم بالتعديل الصورة مباشر في المشروع
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته


تفضل الدالة ImageChannelMixer
كود :
Private Function ImageChannelMixer(ByVal img As Image, ByVal clr As Color) As Image
    Dim b1 As New Bitmap(img.Width * 2, img.Height)
    Using g1 As Graphics = Graphics.FromImage(b1)
        g1.Clear(Color.Transparent)
        g1.DrawImage(img, 0, 0, img.Width, img.Height)
    End Using
    '---------------------------------------
    Dim b2 As New Bitmap(b1)
    Using g2 As Graphics = Graphics.FromImage(b2)
        Dim imageAttributes As New Imaging.ImageAttributes()
        Dim colorMatrixElements As Single()() = {New Single() {1, 0, 0, 0, 0}, _
                                                 New Single() {0, 1, 0, 0, 0}, _
                                                 New Single() {0, 0, 1, 0, 0}, _
                                                 New Single() {0, 0, 0, 1, 0}, _
                                                 New Single() {(clr.R / 255), (clr.G / 255), (clr.B / 255), 0, 1}}
        Dim colorMatrix As New Imaging.ColorMatrix(colorMatrixElements)
        imageAttributes.SetColorMatrix(colorMatrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Default)
        g2.DrawImage(b2, New Rectangle(img.Width, 0, b2.Width, b2.Height), _
                            0, 0, b2.Width, b2.Height, _
                            GraphicsUnit.Pixel, imageAttributes)
    End Using
    '---------------------------------------
    Dim b3 As New Bitmap(img.Width, img.Height)
    Using grp = Graphics.FromImage(b3)
        grp.DrawImage(b2, New Rectangle(0, 0, img.Width, img.Height), New Rectangle(img.Width, 0, img.Width, img.Height), GraphicsUnit.Pixel)
    End Using
    '---------------------------------------
    Return b3
End Function

طريقة استخدامها
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    PictureBox2.Image = ImageChannelMixer(PictureBox1.Image, Color.Blue)
End Sub


السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة: ali.alfoly , 3booody , sooriaty03
#5
السلام عليكم ورحمة الله
حبيبي أبو رائد
والله لا اجد ما أقول فعلا
جزاك الله خيرا

أسئل الله تعالى أن يبارك فيك
وينفعك بعلمك في الدنيا والأخرة
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 18 أمس, 03:21 AM
آخر رد: e-coder
  [سؤال] طريقة أخذ صورة من فيديو thevest_knight 3 75 20-09-17, 05:58 PM
آخر رد: thevest_knight
  كيفية تغير نوعية الاتصال من xmpp الي improver socket using Tls and DIGEST-MD5 login e-coder 0 29 16-09-17, 04:24 PM
آخر رد: e-coder
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 84 27-08-17, 12:01 PM
آخر رد: khodor1985
  عدم ظهور صورة background MDIparent ndjakoub 2 90 14-08-17, 12:49 PM
آخر رد: أبو نوره
  كيف يمكن انشاء صورة باركود عن طريق WEB SERVICE كفاح 0 61 11-08-17, 03:17 PM
آخر رد: كفاح
  [VB.NET] هل يمكن ترجمة الكلام المكتوب على صورة؟ الماجيك مسعد 6 216 05-08-17, 08:48 PM
آخر رد: الماجيك مسعد
  حذف صورة abdulla2 9 223 08-07-17, 05:39 PM
آخر رد: abdulla2
  سؤال فى صورة الفورم الرئيسى salah mansour 7 271 05-07-17, 08:54 PM
آخر رد: salah mansour
  سؤال يخص (تحويل مسار صورة الي صورة في التقرير) محمد محمود الغرياني 1 115 24-06-17, 06:47 PM
آخر رد: silverlight

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم