vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Grafik & Zeichnen13.07.01
GetPixel-Funktion

Ermittelt den RGB-Farbwert eines durch die Koordinaten x und y angegebenen Pixels.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  20.382 

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:
hdcGibt den gewünschten Gerätekontext (Device-Kontext) an, z.B. Picture.hDC.
nXPosGibt die horizontale Koordinate (x) des Pixels an.
nYPosGibt 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

Diese Seite wurde bereits 20.382 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel