Bonjour à tous,
J'ai bien réussi à coder le zoom et je ne parviens pas à faire la fonction panoramique pour déplacer la vue avec la souris, est ce que vous pouvez m'aider ?
voici mon code pour le zoom :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Private Sub Chart2_MouseWheel(sender As Object, e As MouseEventArgs) Handles Chart2.MouseWheel
        Dim XMin As Double = Chart2.ChartAreas(0).AxisX.Minimum
        Dim XMax As Double = Chart2.ChartAreas(0).AxisX.Maximum
        Dim YMin As Double = Chart2.ChartAreas(0).AxisY.Minimum
        Dim YMax As Double = Chart2.ChartAreas(0).AxisY.Maximum
        Static zoom As Double
        ' Valeur de zoom : 0=Zoom Max 100= zoom Mini
        zoom += CInt(1 * (e.Delta) / 12)
        zoom = Math.Max(zoom, 0)
        zoom = Math.Min(zoom, 100)
 
        Dim x1Min As Double = XMin * (1 - zoom / 100)
        Dim x1Max As Double = XMax * (1 - zoom / 100)
        Dim y1Min As Double = YMin * (1 - zoom / 100)
        Dim y1Max As Double = YMax * (1 - zoom / 100)
        Chart2.ChartAreas(0).AxisX.ScaleView.Zoom(x1Min, x1Max)
        Chart2.ChartAreas(0).AxisY.ScaleView.Zoom(y1Min, y1Max)
 
    End Sub