Visual Basic FAQ

Как обратить все цвета рисунка

Инвертируем все цвета рисунка. Каждый цвет будет заменен на обратный к нему.

Например, черный будет преобразован в белый, а синий — в желтый.

Option Explicit
Private Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type 

Private Sub Form_Load()
    Dim R As RECT 

    Me.AutoRedraw = True
    Me.Picture = LoadPicture("C:\1.bmp")
    Me.ScaleMode = vbPixels 

    R.Bottom = Me.ScaleHeight
    R.Right = Me.ScaleWidth
    R.Left = 0
    R.Top = 0 

    Call InvertRect(Me.hdc, R)
End Sub

Запись опубликована on 17.10.2009 at 16:11 и размещена в рубрике: Мультимедиа. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.