Dim bmp As New Bitmap(1, 1)
Using g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(Windows.Forms.Cursor.Position, New Point(0, 0), New Size(1, 1))
End Using
Dim pixel As Drawing.Color = bmp.GetPixel(0, 0)
TextBox1.Text$ = bmp.GetPixel(0, 0).ToString
Dim p As New Point
p.X = (Me.Width / 2) - (TextBox1.Width / 2)
p.Y = TextBox1.Top
TextBox1.Location = p
TextBox1.BackColor = pixel
Me.Invalidate()
Niby kod działa, ale nie pokazuje koloru pozycji wskazanej kursorem myszki, tylko gdzieś obok.
Dla przykładu, jak wskazuje guzik youtuba - to nie pokazuje koloru czerwonego, tylko biały, a jak wskażę pod prawym dolnym rogiem guzika youtuba - to dopiero wskazuje kolor czerwony.
Jak to poprawić aby wskazywało kolor prawidłowy ?
Na powyższym zdjęciu wskazałem zielonym kółkiem gdzie był kursor myszy - kiedy pobrano kolor czerwony.