爲什麼我的代碼不工作？ - 縮小圖表控制 -

Question

Private Sub DrawChart() 
    'this is only part of the chart drawing setup 

    With Chart1.ChartAreas(0) 

     .AxisX.Maximum = ChartAxisXMax + ZoomFactor 
     .AxisX.Minimum = ChartAxisXMin + ZoomFactor 
     .AxisY.Minimum = ChartAxisXMax + ZoomFactor 
     .AxisY.Maximum = ChartAxisXMax + ZoomFactor 

    End With 

End Sub 

Private Sub Chart1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Chart1.MouseWheel 
    ZoomFactor = e.Delta * SystemInformation.MouseWheelScrollLines/100 ' WHEEL_DATA 
    DrawChart() 

End Sub 

我把它放在錯誤的地方也許？我一滾動鼠標，事件就不會被觸發？軸的最小值和最大值已經預置，所以它有什麼問題？

Answer 1

請使用此代碼：

Private Sub Chart1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Chart1.MouseWheel 
     Dim ZoomFactor = e.Delta * SystemInformation.MouseWheelScrollLines/100 ' WHEEL_DATA 

     With Chart1.ChartAreas(0) 

      .AxisX.Maximum = Chart1.ChartAreas(0).AxisX.Maximum - ZoomFactor 
      .AxisX.Minimum = Chart1.ChartAreas(0).AxisX.Minimum + ZoomFactor 
      .AxisY.Minimum = Chart1.ChartAreas(0).AxisY.Minimum + ZoomFactor 
      .AxisY.Maximum = Chart1.ChartAreas(0).AxisY.Maximum - ZoomFactor 

     End With 

    End Sub