主题：[求助]怎样让chart图表可以滑动

 Dim Chart As WinForm.Chart '定义一个图表变量

            Dim Series As WinForm.ChartSeries '定义一个图系变量

            Dim t As Table = Tables("环境数据") '定义一个变量t引用数据表

            Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

            Chart.SeriesList.Clear() '清除图表原来的图系

            Chart.Axisx.ClearValueLabel

                Series = Chart.SeriesList.Add() '增加一个图系

                Series.Length = t.Rows.Count '设置图系的长度

                    For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置

                        Series.X(i) = i '指定水平坐标

                        Series.Y(i) = t.Rows(i)("土壤温度")

                        Chart.AxisX.SetValueLabel(i, Format(t.Rows(i)("时间"),"HH:mm")) '指定字符表示

                    Next

                    Chart.AxisX.AnnoWithLabels = True

                    Chart.AxisY.Major =10

                    Chart.AxisY.Min = -30

                    Chart.AxisY.Max =70

                    Chart.AxisX.AnnoWithLabels = True

                    Chart.AxisY.Major = 10

                    Chart.AxisY.Min = 0

                    Chart.AxisY.Max =100

                    chart.FooterText="土壤温度"