Question

求助，各位vb高手，帮忙设计一个用数组存储数据，利用vb6.0中的mschart控件来画折线图的代码程序。十分感谢

Answer 1

新建工程，在表单上放置MSChart1控件，然后粘贴以下代码：
Private Sub Form_Load()
Dim D(1 To 10, 1 To 2) As Double, i As Integer
Randomize
For i = 1 To 10 '产生随机数
D(i, 1) = 100 * Rnd(1)
D(i, 2) = -100 * Rnd(1)
Next

MSChart1.chartType = VtChChartType2dLine '设定图表类型
MSChart1.ChartData = D
End Sub

追问

怎么修改显示的刻度啊？ 比如主要刻度是1，次要刻度线是0.5。还有坐标轴的范围怎么限制啊？

追答

请添加以下语句实现你想要的功能：
With MSChart1.Plot.Axis(VtChAxisIdY)
.ValueScale.Auto = False '取消自动标刻度大小
.ValueScale.Maximum = 300 '设定最大值为300
.ValueScale.Minimum = -200 '设定最小值为-200
.ValueScale.MajorDivision = 5 '设定主要刻度划分5个,即每格500/5=100
.AxisGrid.MajorPen.VtColor.Blue = True '设定主要刻度线为蓝色
.ValueScale.MinorDivision = 2 '设定次要刻度划分2个,即每格100/2=50
.AxisGrid.MinorPen.Style = VtPenStyleDashDot '设定次要刻度线为点划线
End With