有朋友使用过mschart.ocx控件吗，请问这个该怎么使用？

Question

请问一下，vb中微软的mschart.ocx部件，不绑定数据时应该怎样使用呢？
请教朋友一些基本的用法，好吗？

Answer 1

Private Sub Form_Load()
     For k = 1 To 250
          MSChart1.row = k
          MSChart1.Data = 0
      Next
      
End Sub
Private Sub Command1_Click(Index As Integer)
   With MSChart1.Plot.Axis(VtChAxisIdY).ValueScale
         .Minimum = Val(txtMin.Text)
         .Maximum = Val(txtMax.Text)
   End With
End SubPrivate Sub Command1_Click(Index As Integer)    For k = 1 To 25
        MSChart1(0).row = (jp - 1) * 25 + k
        MSChart1(0).Data = dj(k, 0) * 0.1
    Next
End Sub

Answer 2

一、 MSChart的属性介绍
ChartType  设置MSChart的图表形式，如柱图，线图，3D的柱图等。
ColumnCount 设置MSChart图表中对象的个数。
Footnote 设置MSChart的脚注
Plot 设置MSChart的图表的属性，如坐标范围，坐标名字等。具体下面介绍。
RandomFill  设置MSChart是否在没有数据的时候随机画图
RowCount    设置MSChart图表中每个对象构成的数据点数
Title       设置MSChart的标题
     
二、 MSChart的方法介绍
EditCopy    将MSChart的图表放入内存的剪贴板中。可通过Clipboard.GetData(vbCFBitmap)将其读
出。三、 Plot属性的说明
Plot.Axis(VtChAxisIdY).AxisTitle  设置轴的名字
例如：MSChart1.Plot.Axis(VtChAxisIdY).AxisTitle = “温度”Plot.Axis(VtChAxisIdY).ValueScale 设置轴的范围和刻度间隔
例如：设置Y轴的范围为400～0，刻度0，40，80，120·······
With MSChart1.Plot.Axis(VtChAxisIdY).ValueScale
        .Auto = False
        .Maximum =400
        .Minimum = 0
        .MajorDivision = 10
        .MinorDivision = 1
End With
    Plot.Axis(VtChAxisIdX).CategoryScale 设置X轴的刻度间隔和刻度标签间隔
例如：X轴的刻度间隔为24个点画一个刻度点，标签也一样
With MSChart1.Plot.Axis(VtChAxisIdX).CategoryScale
        .Auto = False
        .DivisionsPerTick = 24
        .DivisionsPerLabel = 24
        .LabelTick = True
End With四、 MSChart的属性设置对话框
右键点击窗体中的MSChart控件，选择属性，就会弹出MSChart的属性设置对话框。在属性对话框中可以设点图表中对象的颜色，线形，线粗。也可以直接输入坐标的标题和标题的方向。五、
1． 何让MSChart在没有数据的时候显示空白的图标 
RandomFill = False 
且在初始化的时候RowCount = 02． 如何实现下面的图表
在MSChart的属性设置对话框中进行设置。
1) 在“图”Tab中，选择2D的线
2) 在“轴”Tab中，取消X轴的“显示刻度”和“自动缩放”。“刻度间隔”和“标签间隔”可以设置X轴的刻度和刻度标签的间隔。要看到效果，必须选择显示刻度。
3) 在“轴网格”Tab中，将X轴的样式选成“NULL”，其他轴的样式选成虚线。
 
六、 如何将数据输入到MSChart
With MSChart1
            .Row = i
            .Column = 1        设定画图的对象是图表中的对象一
.Data = 数据         
End With
例如：
With MSChart1
   .Visible = False                            visiable置为False的时候画图的速度要快一点
   .RowCount = m_lngPageRecord
   For i = 1 To m_lngPageRecord Step 1
      If NewDyn.BOF Then                  从数据中读取数据
          m_bFirstRecord = True
          .RowCount = i
          Exit For
      End If
      .Row = i
      .Column = 1
      If NewDyn.Fields("TempPV") <> "Null" Then .Data = NewDyn.Fields("TempPV") 'draw TempPV line
      Column = 2
      If NewDyn.Fields("HumiPV") <> "Null" Then .Data = NewDyn.Fields("HumiPV") 'draw HumiPV line
      .Column = 3
      If NewDyn.Fields("TempSV") <> "Null" Then .Data = NewDyn.Fields("TempSV") 'draw TempSV line
      .Column = 4
      If NewDyn.Fields("HumiSV") <> "Null" Then .Data = NewDyn.Fields("HumiSV")'draw HumiSV line
      RowLabel = ""
      NewDyn.MovePrevious                'move to previous record
   Next I
End With