revert to VB and update to new project file format

This commit is contained in:
schedpas
2020-09-25 09:04:15 +02:00
parent 04869b2814
commit 9feaf658be
313 changed files with 9895 additions and 17566 deletions

View File

@@ -0,0 +1,20 @@
Imports System.Drawing
Imports System.Runtime.CompilerServices
Public Module BitmapExtensions
<Extension>
Public Sub InvertColors(bmp As Bitmap)
For y As Integer = 0 To bmp.Height - 1
For x As Integer = 0 To bmp.Width - 1
Dim inv As Color = bmp.GetPixel(x, y)
inv = Color.FromArgb(inv.A,
Byte.MaxValue - inv.R,
Byte.MaxValue - inv.G,
Byte.MaxValue - inv.B)
bmp.SetPixel(x, y, inv)
Next
Next
End Sub
End Module