GetPixel-Funktion Ermittelt den RGB-Farbwert eines durch die Koordinaten x und y angegebenen Pixels.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  25.457

Deklaration:

Declare Function GetPixel Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal nXPos As Long, _
  ByVal nYPos As Long) As Long

Beschreibung:
Diese Funktion ermittelt den RGB-Farbwert eines durch die Koordinaten x und y angegebenen Pixels.

Parameter:

hdc	Gibt den gewünschten Gerätekontext (Device-Kontext) an, z.B. Picture.hDC.
nXPos	Gibt die horizontale Koordinate (x) des Pixels an.
nYPos	Gibt die vertikale Position (y) des Pixels an.

Rückgabewert:
War der Funktionsaufruf erfolgreich, ist der Rückgabewert der "RGB-Wert" des Pixels, andernfalls wird CLR_INVALID zurückgegeben.

Rückgabekonstanten:

' Ungültige Angabe
Const CLR_INVALID = &HFFFF

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.