Juego de disparos de programación VB

Función de declaración privada GetObject Lib "gdi32 "

Función de declaración privada GetBitmapBits Lib "gdi32 "

Función de declaración privada SetBitmapBits Lib "gdi32 "

Dim PicBits() como byte, PicInfo como BITMAP, Cnt como largo

Subcomando privado1_Click()

Establecer imagen1.Picture = Clipboard.GetData(vbCFBitmap)

GetObject Picture1.Picture, Len(PicInfo), PicInfo

Debug.Print PicInfo.bmWidth * PicInfo.bmHeight * 3

ReDim PicBits(1 a PicInfo.bmWidth * PicInfo .bmHeight * 3) Como Byte

GetBitmapBits Imagen1.Picture, UBound(PicBits), PicBits(1)

Para Cnt = 1 a UBound(PicBits)

PicBits(Cnt) = 255 - PicBits(Cnt)

Siguiente Cnt

SetBitmapBits Imagen1.Imagen, UBound(PicBits), PicBits(1)

Imagen1 .Actualizar

Fin Sub