تقييم الموضوع :
  • 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
السلام عليكم ورحمة الله
حبيبي أبو رائد
والله لا اجد ما أقول فعلا
جزاك الله خيرا

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تغير IPAddress ابو روضة 2 59 16-11-17, 09:16 PM
آخر رد: ابو روضة
  مساعدة في تكبير صورة في picture box بدون فقدان جودتها salahmax12 4 88 11-11-17, 04:36 PM
آخر رد: silverlight
  طلب كود تغير الارقام حسب السنة ahmedmansour 3 84 06-11-17, 09:48 PM
آخر رد: ahmedmansour
  تغير لون ال button اعتمادا على البيانات من قاعده البيانات Rabeea Qbaha 5 120 03-11-17, 12:31 AM
آخر رد: Rabeea Qbaha
  كيف استطيع اخزن NULL في حقل من نوع صورة اذا كان صندوق الصورة فاضي samawi 6 102 01-11-17, 09:32 AM
آخر رد: samawi
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 131 16-10-17, 12:42 PM
آخر رد: silverlight
  [VB.NET] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 49 23-09-17, 03:21 AM
آخر رد: e-coder
  [سؤال] طريقة أخذ صورة من فيديو thevest_knight 3 154 20-09-17, 05:58 PM
آخر رد: thevest_knight
  كيفية تغير نوعية الاتصال من xmpp الي improver socket using Tls and DIGEST-MD5 login e-coder 0 66 16-09-17, 04:24 PM
آخر رد: e-coder
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 120 27-08-17, 12:01 PM
آخر رد: khodor1985

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


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