vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück
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:  13.928 

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

Diese Seite wurde bereits 13.928 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2020 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