пиксели рисунка

' Блогодаря  KPD-Team
'URL: [url]http://www.allapi.net/[/url]
 
Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type
 
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
 
Dim PicBits() As Byte, PicInfo As BITMAP
Dim Cnt As Long, LineBytes As Long
 
Private Sub CommandButton1_Click()
 
    'Image1.Picture = LoadPicture("c:\images\edit.bmp")
    GetObject Image1.Picture, Len(PicInfo), PicInfo
    LineBytes = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC
    ReDim PicBits(1 To LineBytes * PicInfo.bmHeight * 3) As Byte
    GetBitmapBits Image1.Picture, UBound(PicBits), PicBits(1)
 
    For Cnt = 1 To UBound(PicBits)
        PicBits(Cnt) = PicBits(Cnt) Xor 127 'test 
    
    Next Cnt
   
    SetBitmapBits Image1.Picture, UBound(PicBits), PicBits(1)
    
 End Sub