Mushroom Realm
Jul 2nd, 2002, 02:15 PM
I'm using the GetBitmapBits and SetBitmapBits functions that are in gdi32, and i'm confused. It causes an error during the GetBitmapBits function code. Well, her is my code:
Private Sub mnuInvert_Click()
Dim Pixels() As RGBTriplet
Dim X As Integer
Dim Y As Integer
Dim Bits As Integer
GetBitmapBits Picture1, Pixels, Bits
With Pixels
rgbRed = 255 - rgbRed
rgbGreen = 255 - rgbGreen
rgbBlue = 255 - rgbBlue
End With
(This is in a module)
Public Type RGBTriplet
rgbRed As Integer
rgbGreen As Integer
rgbBlue As Integer
End Type
Private Sub mnuInvert_Click()
Dim Pixels() As RGBTriplet
Dim X As Integer
Dim Y As Integer
Dim Bits As Integer
GetBitmapBits Picture1, Pixels, Bits
With Pixels
rgbRed = 255 - rgbRed
rgbGreen = 255 - rgbGreen
rgbBlue = 255 - rgbBlue
End With
(This is in a module)
Public Type RGBTriplet
rgbRed As Integer
rgbGreen As Integer
rgbBlue As Integer
End Type