نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

تابع زير با دريافت يك تصوير Bitmap به عنوان آرگومان، با اعمال يك نگاشت ساده روي رنگ تك تك پيكسل ها تصوير ورودي، مقدار Negative شده ي عكس را بر مي گرداند:

Function ToNegative(ByVal inpImg As Bitmap) As Bitmap
        For i As Integer = 0 To inpImg.Width - 1
            For j As Integer = 0 To inpImg.Height - 1
                inpImg.SetPixel(i, j, Color.FromArgb(255 - Val(inpImg.GetPixel(i, j).R), 255 - Val(inpImg.GetPixel(i, j).G), 255 - Val(inpImg.GetPixel(i, j).B)))
            Next
        Next
        Return inpImg
End Function