منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

قبل

بعد

قبل

بعد

الفنكشن

كود :

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)

منقول

جزاك الله خير

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

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

كود :

    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)

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

hitman48

ربيع

hitman48

b4getws