تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] فنكشن لعمل تاثيرات على الصور
#1
اليوم معنا فنكشن يعمل تاثيرات على الصور

كل ما عليك هو تمرير الصوره للفنكشن وسوف ترجع لك صوره عليها تاثيرات

ان شاء الله يكون التاثير على الصور عجبكم
قبل


بعد


قبل

بعد

الفنكشن

كود :
Function Effect1(ByVal image As Bitmap) As Bitmap ' مربعات صغار
      Dim img As New Bitmap(image.Width, image.Height)
      For w As Integer = 1 To image.Width - 1 Step 2
          For h As Integer = 1 To image.Height - 1 Step 2
              img.SetPixel(w, h, System.Drawing.Color.FromArgb(image.GetPixel(w, h).ToArgb))
          Next
      Next
      For w As Integer = 0 To image.Width - 1 Step 2
          For h As Integer = 0 To image.Height - 1 Step 2
              Dim c As Color = image.GetPixel(w, h)
              img.SetPixel(w, h, System.Drawing.Color.FromArgb(image.GetPixel(w, h).ToArgb))
          Next
      Next
      Return img
  End Function


طريقه الاستخدام

كود :
Dim path As String = "Path of image"
Dim image As System.Drawing.Image = System.Drawing.Image.FromFile(path)
PictureBox1.Image = Effect1(image)


منقول
الرد }}}}
تم الشكر بواسطة: ربيع , ابو ابراهيم , بديع
#2
جزاك الله خير
الرد }}}}
تم الشكر بواسطة: hitman48
#3
تسلم اخي ومشكور على المرور
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] بسيط لارسال الصور ومقاطع الفيديو لبرنامج MovieMaker سعود 5 306 22-07-16, 10:23 PM
آخر رد: سعود
  كود لعمل Notification Form ILI 0 504 24-08-15, 04:51 PM
آخر رد: ILI

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


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