关于mschart控件的一个简单问题---急！！！

Question

我要用mschart控件编一个正玄函数散点图，代码如下：
Private Sub Form_click()
Dim pi As Single, i As Integer
pi = 3.14159
With MSChart1
   .chartType = VtChChChartType2dXY       '类型为散点图
   .ColumnCount = 1
   .RowCount = 37
   .Column = 1
For i = 1 To 37
   MSChart1.Row = i
   MSChart1.Data = Sin(10 * (i - 1) * pi / 180)
Next i
End Sub
结果什么也不显示。望高手帮助。
分数给解决问题者。

Answer 1

我试了你的代码，有曲线显示显示啊，但你的代码中少了一个End WithPrivate Sub Command1_Click()
    Dim pi As Single, i As Integer
    pi = 3.14159
    With MSChart1
       .chartType = VtChChChartType2dXY       '类型为散点图
       .ColumnCount = 1
       .RowCount = 37
       .Column = 1
    End With
    For i = 1 To 37
       MSChart1.Row = i
       MSChart1.Data = Sin(10 * (i - 1) * pi / 180)
    Next i
End Sub

Answer 2

得到的就是正玄散点图，你在窗口中加载一个msChart控件时不要改变它默认的设置试试看怎么程序运行也不报错的吗？另外用个按钮先摸拟一下

Answer 3

不是吧，      
我把.chartType = VtChChChartType2dXY这一句搞错了
应该是.chartType = VtChChartType2dXY
你们是不是这句话出错后注释掉了而得到其他类型的图？

Answer 4

.chartType = VtChChChartType2dXY这一句没错，可以得到结果

Answer 5

能得到吗？我用楼上的就提示说 VtChChChartType2dXY没定义

Answer 6

不会吧！你引用的组件版本号是多少？我的是Microsoft Chart 6.0(SP4)(OLEDB)\WINNT\System32\MSCHRT20.OCX