Rubrik: Grafik & Zeichnen | 13.07.01 |
SetPixel-Funktion Setzt für einen angegebenen Bildpunkt (Pixel) einen neuen Farbwert (RGB-Wert). | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 16.062 |
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