如何使用mschart做一个二维股票走势图,请详细说明，最好有个详细例子，谢谢！

Question

[email protected]

Answer 1

Private Sub Command2_Click()
  If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
    With MSChart1
       .ChartType = VtChChartType2dLine
       .ColumnCount = 2
       .RowCount = MSHFlexGrid1.Rows - 1
       .RowCount = 1
       .TitleText = "折线图示例 本旬出口数量与去年同期对比值"
       Dim XXX, XXXX As Double
       For I = 1 To MSHFlexGrid1.Rows - 1
          XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
          XXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
          .Column = 1
          .Row = 1
          .Data = XXX
          .Column = 2
          .Row = 1
          .Data = XXXX
          .RowLabel = MSHFlexGrid1.TextMatrix(I, 1)
          .RowLabel = ""
       Next I
       .Column = 1
       .ColumnLabel = "本旬出口数量"
       .Column = 2
       .ColumnLabel = "去年同期对比百分数"
    End With
  End If
End Sub

Answer 2

VB自带的只有mschart这个能满足你的要求：
http://www.csdn.net/cnshare/soft/14/14721.shtm
http://www.weihong.com/ActiveX_sum/olectrachart_summ.htm