16,553
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Chart1.ChartAreas.Clear() '清除所有绘图区域
Chart1.ChartAreas("default").BackColor = Color.Black
Chart1.ChartAreas("default").AxisX.MajorGrid.Enabled = True
Chart1.ChartAreas("default").AxisX.MinorGrid.Enabled = True
Chart1.ChartAreas("default").AxisY.MajorGrid.Enabled = True
Chart1.ChartAreas("default").AxisY.MinorGrid.Enabled = True
Chart1.ChartAreas("default").AxisX.MajorGrid.LineColor = Color.WhiteSmoke
Chart1.ChartAreas("default").AxisY.MajorGrid.LineColor = Color.WhiteSmoke
Chart1.ChartAreas("default").AxisX.MajorGrid.Interval = 1
Chart1.ChartAreas("default").AxisX.MinorGrid.Interval = 0.1
Chart1.ChartAreas("default").AxisY.MajorGrid.Interval = 5
Chart1.ChartAreas("default").AxisY.MinorGrid.Interval = 0.2
Chart1.ChartAreas("default").AxisX.MinorGrid.LineDashStyle = ChartDashStyle.DashDotDot
Chart1.ChartAreas("default").AxisY.MinorGrid.LineDashStyle = ChartDashStyle.DashDotDot
End Sub