level 1
yzy156836195
楼主
我用vb6的mschart控件做了一个折线图,刚一开始运行时上面显示几条线,一会又消失正常运行了,这是怎么回事,哪位大侠能帮我解答,谢谢啦,这是程序的一部分
Private Sub Form_Load()
With MSChart1
h = 0
.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
' 设置最大值
.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 60
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100
' 设置最小值
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 10 'X轴主要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 'Y轴主要网格数量
.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量
.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
MSChart1.Plot.AutoLayout = False '坐标布局人工还是自动
MSChart1.Plot.UniformAxis = False '坐标单位刻度是否一致
MSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图
.Plot.SeriesCollection(1).Pen.Width = 30
.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
End With
End Sub

2014年11月28日 16点11分
1
Private Sub Form_Load()
With MSChart1
h = 0
.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
' 设置最大值
.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 60
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100
' 设置最小值
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 10 'X轴主要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 'Y轴主要网格数量
.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量
.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
MSChart1.Plot.AutoLayout = False '坐标布局人工还是自动
MSChart1.Plot.UniformAxis = False '坐标单位刻度是否一致
MSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图
.Plot.SeriesCollection(1).Pen.Width = 30
.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
End With
End Sub
