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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إذا تغير التاريخ ؟؟ hichem1 7 75 07-06-18, 04:24 AM
آخر رد: elgokr
  [VB.NET] اريد وضع صورة في الفورم والصورة متحركة هلي يمكن ان اضع الصورة في بكتشر بوكس fatma mohmed 1 65 28-05-18, 04:16 AM
آخر رد: elgokr
  [سؤال] كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ عادل المغربي 7 156 22-05-18, 01:23 AM
آخر رد: عبدالله الدوسري
  السلام عليكم اريد كود تغير اسم المستخدم وكلمة المرور القديمة nosa 3 128 10-05-18, 11:21 AM
آخر رد: alaa.altunsi
  [سؤال] clickone لا يدعم تشغيل كا مسؤول ! كيفية تغير او تشغيل التطبيق الخاص بك بوض المسؤول؟ Iman Mohamed Omran 2 83 01-05-18, 07:05 PM
آخر رد: Iman Mohamed Omran
  نقل صورة من فورم الى اخر فراس الغزي 1 93 29-04-18, 06:14 PM
آخر رد: أسامة السالمي
  عرض صورة رسول555 3 129 14-04-18, 11:06 AM
آخر رد: حريف برمجة
  رسالة عرض صورة رسول555 4 160 10-04-18, 02:48 AM
آخر رد: رسول555
  السادة الافاضل أرجو المساعدة للضرورة القصوة "كود حفظ صورة من ويب كام مباشرة " nohadking 1 120 22-03-18, 11:00 AM
آخر رد: silverlight
  تحديد مركز الدائرة فى صورة mrnooo2000 4 186 06-03-18, 01:56 AM
آخر رد: عبدالله الدوسري

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


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