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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حذف صورة abdulla2 9 163 08-07-17, 05:39 PM
آخر رد: abdulla2
  سؤال فى صورة الفورم الرئيسى salah mansour 7 206 05-07-17, 08:54 PM
آخر رد: salah mansour
  سؤال يخص (تحويل مسار صورة الي صورة في التقرير) محمد محمود الغرياني 1 83 24-06-17, 06:47 PM
آخر رد: silverlight
  كيفية اضافة صورة للتقرير المتألق9 1 84 22-06-17, 05:16 PM
آخر رد: boudyonline
  كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو khaled12345 8 346 20-06-17, 05:01 AM
آخر رد: khaled12345
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 483 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  كيف اظهر صورة موجودة في picturebox على التقرير مباشرة samawi 22 674 09-05-17, 07:35 AM
آخر رد: samawi
  عرض صورة في تقرير كريستال atefkhalf2004 29 805 29-04-17, 03:37 PM
آخر رد: Adrees
  مساعدة بالتحقق من صورة موجودة في Picturebox Basil Abdallah 3 151 24-04-17, 04:36 PM
آخر رد: silverlight
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 98 7,516 12-04-17, 11:48 PM
آخر رد: MOSTAFA.KAMEL

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


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