vb@rchiv · Tipps & Tricks · Pixelfarbe unter dem Mauszeiger, bildschirmweit

Rubrik: Grafik und Font | VB-Versionen: VB.NET

03.06.08

Pixelfarbe unter dem Mauszeiger, bildschirmweit Eine Funktion zum Bestimmen der Farbe des Pixels des Bildschirms, das sich gerade unter dem Mauszeiger befindet.
Autor: Dietrich Herrmann	Bewertung:	Views: 20.181
ohne Homepage	System: Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Unter dem Link http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=362248&SiteId=1 fand ich eine Lösung für diesen Fall und habe das Ganze ein wenig angepasst.

Zunächst im Deklarationsteil der Form/Moduls:

Imports System.Runtime.InteropServices

  ' benötigte API-Funktionen
  <DllImport("gdi32.dll")> _
  Private Shared Function CreateDC( _
    ByVal lpszDriver As String, _
    ByVal lpszDevice As String, _
    ByVal lpszOutput As String, _
    ByVal lpInitData As IntPtr) As IntPtr
  End Function
 
  <DllImport("gdi32.dll")> _
  Private Shared Function DeleteDC(ByVal hdc As IntPtr) As Boolean
  End Function
 
  <DllImport("gdi32.dll")> _
  Private Shared Function GetPixel( _
    ByVal hdc As IntPtr, _
    ByVal nXPos As Integer, _
    ByVal nYPos As Integer) As Integer
  End Function

Jetzt die eigentliche Funktion:

  ''' <summary>
  ''' Ermittelt den Farbwert des Pixels unter dem Mauszeiger
  ''' </summary>
  ''' <param name="x">x-Koordinate des Screens</param>
  ''' <param name="y">y-Koordinate des Screens</param>
  Public Function GetPixelColor(ByVal x As Integer, ByVal y As Integer) As Color
    Dim hdcScreen As IntPtr = CreateDC("Display", Nothing, Nothing, IntPtr.Zero)
    Dim colorRef As Integer = GetPixel(hdcScreen, x, y)
    DeleteDC(hdcScreen)
 
    Return Color.FromArgb(colorRef And &HFF, _
      (colorRef And &HFF00) >> 8, (colorRef And &HFF0000) >> 16)
  End Function

Jetzt noch die Aufrufvariante bspw. in einem Timer_Tick_Ereignis:

    ' Farbwert des Pixels unter dem Mauszeiger
    Dim pixColor As Color = GetPixelColor(Cursor.Position.X, Cursor.Position.Y)

Fertig.