Feedback

Die Farbe eines Pixels in einer Windows Form abfragen

Sprache: VB

Die Farbe eines Pixels in einer Windows Form abfragen
Private Function GetPixelAtPoint(ByVal Ctrl As System.Windows.Forms.Control, ByVal Location As System.Drawing.Point) As Color
  Dim TmpImg As New Bitmap(Ctrl.ClientSize.Width, Ctrl.ClientSize.Height)
  Ctrl.DrawToBitmap(TmpImg, Ctrl.ClientRectangle)
  Return TmpImg.GetPixel(Location.X, Location.Y)
End Function
Private Function GetPixelAtPoint(ByVal Ctrl As System.Windows.Forms.Control, ByVal Location As System.Drawing.Point) As Color
  Dim TmpImg As New Bitmap(Ctrl.ClientSize.Width, Ctrl.ClientSize.Height)
  Ctrl.DrawToBitmap(TmpImg, Ctrl.ClientRectangle)
  Return TmpImg.GetPixel(Location.X, Location.Y)
End Function