منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] فنكشن لعمل تاثيرات على الصور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] فنكشن لعمل تاثيرات على الصور (/showthread.php?tid=11343)

فنكشن لعمل تاثيرات على الصور - hitman48 - 06-02-15

اليوم معنا فنكشن يعمل تاثيرات على الصور

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

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


بعد


قبل

بعد

الفنكشن

كود :
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)


منقول


RE: فنكشن لعمل تاثيرات على الصور - ربيع - 06-02-15

جزاك الله خير

RE: فنكشن لعمل تاثيرات على الصور - hitman48 - 06-02-15

تسلم اخي ومشكور على المرور

RE: فنكشن لعمل تاثيرات على الصور - b4getws - 08-02-20

يمكن أن يصبح الكود كالتالي :


كود :
    Function Image_Effect(ByVal Image As Bitmap) As Bitmap
        Dim Img As New Bitmap(Image.Width, Image.Height)

        For I = 1 To 0 Step -1
            For W = I To Image.Width - 1 Step 2
                For H = I To Image.Height - 1 Step 2
                    Img.SetPixel(W, H, Color.FromArgb(Image.GetPixel(W, H).ToArgb))
                Next
            Next
        Next

        Return Img

End Function

كود :
Dim Image As Image = Image.FromFile(myPathImage)

        PB.Image = Image_Effect(Image)