Wie positioniere ich in VB.NET 2003 per Klick auf eine PictureBox den Cursor in einer anderen PictureBox an der angeklickten Farbposition?

Question

Accepted Answer

**In VB.NET 2003 setzt du den Cursor in einer `PictureBox` nicht direkt „auf eine Farbe“, sondern auf die Pixelposition, auf die geklickt wurde. Entscheidend ist also das `MouseDown`- oder `Click`-Ereignis und die Mauskoordinate `e.X` / `e.Y`.**

## So funktioniert es

Wenn du in eine `PictureBox` klickst, bekommst du die genaue Position des Klicks. Diese Position kannst du speichern und dort z. B. ein Fadenkreuz, einen Punkt oder einen Auswahlrahmen zeichnen.

```vb
Private CursorX As Integer
Private CursorY As Integer

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    CursorX = e.X
    CursorY = e.Y
    PictureBox1.Invalidate()
End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    e.Graphics.DrawLine(Pens.Red, CursorX - 5, CursorY, CursorX + 5, CursorY)
    e.Graphics.DrawLine(Pens.Red, CursorX, CursorY - 5, CursorX, CursorY + 5)
End Sub
```

## Wichtiger Unterschied

Wenn du wirklich die **Farbe an der Klickstelle** meinst, musst du zusätzlich das Bild auslesen. Dann bekommst du nicht nur die Position, sondern auch den Farbwert des Pixels.

```vb
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    Dim bmp As Bitmap = CType(PictureBox1.Image, Bitmap)
    Dim c As Color = bmp.GetPixel(e.X, e.Y)

MsgBox("X=" & e.X & " Y=" & e.Y & " Farbe=" & c.ToString())
End Sub
```

## Praktisch wichtig

Das klappt nur sauber, wenn Bildgröße und `PictureBox`-Größe übereinstimmen. Sobald `StretchImage` verwendet wird, stimmen Klickposition und echte Pixelposition oft nicht mehr direkt überein.

Wenn du also einen „Cursor“ in der Bildposition setzen willst, ist die Klickkoordinate richtig. Wenn du einen bestimmten **Farbpunkt suchen** willst, musst du das Bild pixelweise nach dieser Farbe durchsuchen.

Wie positioniere ich in VB.NET 2003 per Klick auf eine PictureBox den Cursor in einer anderen PictureBox an der angeklickten Farbposition?

Verwandte Fragen

Wie füge ich in VB.NET 2003 allen MainMenu-MenuItems den Handler Men_Click hinzu und werte sie später über Select Case sender.Text aus?

Wie erhalte ich in VB.NET 2003 eine Auflistung der oberen Ebene von MainMenu1?