vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Grafik & Zeichnen13.07.01
SetPixel-Funktion

Setzt für einen angegebenen Bildpunkt (Pixel) einen neuen Farbwert (RGB-Wert).

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  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:
hdcLegt den Gerätekontext (Device-Kontext) fest, z.B. Picture.hDC.
XGibt die horizontale Koordinate des zu setzenden Pixels an.
YGibt die vertikale Koordinate des Pixels an.
crColorGibt 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

 
 
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.