SetPixel-Funktion Setzt für einen angegebenen Bildpunkt (Pixel) einen neuen Farbwert (RGB-Wert).
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  952

Deklaration:

Declare Function SetPixel Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal X As Long, _
  ByVal Y As Long, _
  ByVal crColor As Long) As Long

Beschreibung:
Diese Funktion setzt für einen angegebenen Bildpunkt (Pixel) einen neuen Farbwert (RGB-Wert).

Parameter:

hdc	Legt den Gerätekontext (Device-Kontext) fest, z.B. Picture.hDC.
X	Gibt die horizontale Koordinate des zu setzenden Pixels an.
Y	Gibt die vertikale Koordinate des Pixels an.
crColor	Gibt neue Farbe des Pixels als RGB-Farbwert an.

Rückgabewert:
War der Funktionsaufruf erfolgreich, wird der gesetzt Farbwert zurückgegeben, andernfalls ist der Rückgabewert "-1".

Beispiel:

Private Declare Function GetPixel Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal nXPos As Long, _
  ByVal nYPos As Long) As Long
Private Declare Function SetPixel Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal X As Long, _
  ByVal Y As Long, _
  ByVal crColor As Long) As Long

' Plazieren Sie ein Bildfeld (Picture1) auf die Form und ordnen diesem
' ein beliebiges Bild zu
Private Sub Command1_Click()
  Dim I, J As Long
 
  With Picture1
    .ScaleMode = vbPixels
 
    ' Invertiert eine Grafik
    For I = 0 To .ScaleWidth
      For J = 0 To .ScaleHeight
        SetPixel .hdc, I, J, GetPixel(.hdc, I, J) Xor -1
      Next J
    Next I    
  End With
End Sub