为什么我的代码不工作?图表控件中的-Zooming -

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