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

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

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

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

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

ان شاء الله يكون التاثير على الصور عجبكم
قبل
[صورة مرفقة: 802a579a5f521.jpg]

بعد
[صورة مرفقة: 052a6e95447d2.jpg]

قبل
[صورة مرفقة: 36187228a2c21.jpg]

بعد
[صورة مرفقة: 36d7096825fe2.png]

الفنكشن

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