Hallo Leute,
Ich hab eine Picturebox in die ich Achsen und einen Graphen zeichne.
Jetzt wollte ich noch hinzufügen, dass immer an die Stelle gezoomt wird, über der sich der Mauszeiger befindet.
Ich hab den Code geschrieben, funktioniert auch recht gut, nur leider wird immer nur der punkt ganz oben links angezoom.
Hier ist mal der Code im Mouse_Wheel-Event:
Wäre echt toll wenn ihr mir helfen könntet.
Ich hab eine Picturebox in die ich Achsen und einen Graphen zeichne.
Jetzt wollte ich noch hinzufügen, dass immer an die Stelle gezoomt wird, über der sich der Mauszeiger befindet.
Ich hab den Code geschrieben, funktioniert auch recht gut, nur leider wird immer nur der punkt ganz oben links angezoom.
Hier ist mal der Code im Mouse_Wheel-Event:
VB.NET-Quellcode
- Dim koordx% = MousePosition.X - Me.Location.X 'Mauskoordinate für Zoom
- Dim koordy% = MousePosition.Y - Me.Location.Y
- Dim xmaxa# = xmax 'RESET-Werte
- Dim xmina# = xmin 'Das ist das Zoomfenster
- Dim ymaxa# = ymax
- Dim ymina# = ymin
- x = xmax - xmin 'Achsenlänge
- y = ymax - ymin
- If e.Delta > 0 Then 'REIN-zoomen
- xmax = x * 0.5 * 0.75 + koordx '0.75 = Zoomfaktor
- xmin = -x * 0.5 * 0.75 + koordx
- ymax = y * 0.5 * 0.75 + koordy
- ymin = -y * 0.5 * 0.75 + koordy
- Else 'RAUS-zoomen
- xmax = x * 0.75 + koordx '0.75 = beliebiger
- ' Faktor
- xmin = -x * 0.75 + koordx
- ymax = y * 0.75 + koordy
- ymin = -y * 0.75 + koordy
- End If
Wäre echt toll wenn ihr mir helfen könntet.
