VB用鼠标滚轮放大图表组件

问题描述

我一直在努力寻找一种方法，能够使用鼠标滚轮滚动到我的图表组件中。到目前为止，我可以使用下面的代码选择要放大的图表区域，但这不包含鼠标滚轮，而且过程非常缓慢

        Chart1.ChartAreas(0).CursorX.IsUserSelectionEnabled = True
        Chart1.ChartAreas(0).CursorY.IsUserSelectionEnabled = True
        Chart1.ChartAreas(0).AxisX.ScaleView.Zoomable = True
        Chart1.ChartAreas(0).AxisY.ScaleView.Zoomable = True
        Chart1.ChartAreas(0).CursorX.AutoScroll = True
        Chart1.ChartAreas(0).CursorY.AutoScroll = True

我也习惯了下面的代码，它允许您使用鼠标滚轮放大图片框，但我尝试将其调整为 chart1 但它不起作用，我想知道是否有人知道任何替代代码行我可以使用鼠标滚轮放大到图表组件

 Dim _scale As New Sizef(1,1)
        Dim _scaleDelta As New Sizef(0.01,0.01)
        _scale.Width = 1
        _scale.Height = 1
        If e.Delta > 0 Then _scale += _scaleDelta
        ElseIf e.Delta < 0 Then _scale -= _scaleDelta 
        End If

        If e.Delta <> 0 Then pictureBox1.scale(_scale)
        picPosition()

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）