[hitman48]

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

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

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

قبل

بعد

قبل

بعد

الفنكشن

كود :

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)

منقول

[ربيع]

جزاك الله خير

[hitman48]

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

[b4getws]

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

كود :

    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)