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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض صورة رسول555 3 81 14-04-18, 11:06 AM
آخر رد: حريف برمجة
  رسالة عرض صورة رسول555 4 109 10-04-18, 02:48 AM
آخر رد: رسول555
  السادة الافاضل أرجو المساعدة للضرورة القصوة "كود حفظ صورة من ويب كام مباشرة " nohadking 1 82 22-03-18, 11:00 AM
آخر رد: silverlight
  تحديد مركز الدائرة فى صورة mrnooo2000 4 145 06-03-18, 01:56 AM
آخر رد: عبدالله الدوسري
  إضافة صورة iFanfan 0 45 24-02-18, 02:57 AM
آخر رد: iFanfan
  تغير مسار تنصيب البرنامج altho8 0 29 19-02-18, 05:38 PM
آخر رد: altho8
  [VB.NET] تغير اسم ملف محمد اسماعيل 6 37 16-02-18, 09:35 PM
آخر رد: محمد اسماعيل
  [سؤال] تصدير صورة من السكانر prj 8 2,523 16-02-18, 03:00 PM
آخر رد: issatiger
  [سؤال] سحب صورة من السكانر ؟ Mido9 11 7,734 16-02-18, 02:52 PM
آخر رد: issatiger
  حل للخلفية بصندوق صورة Basil Abdallah 1 35 12-02-18, 07:36 PM
آخر رد: Basil Abdallah

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


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