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
Alte URL:
/snippet/die-farbe-eines-pixels-in-einer-windows-form-abfragen/700