Question

VB中如何使用mschart 控件画曲线图

数据库：LWL.MDB
表：LWL
字段是：日期、收入
现在就是想把表里的“收入”字画成曲线图
各位高手帮帮忙

Answer 1

具体操作步骤如下：

1、首先，单击左侧工具框中的命令按钮，如下图所示，然后进入下一步。

　    

2、其次，双击以直接在表单上绘制，如下图所示，然后进入下一步。

　    

3、接着，或者可以单击命令按钮控件，再在页面上拖动绘制，如下图所示，然后进入下一步。

　    

4、然后，如果对外观不满意，可以在属性窗口中对其进行更改，如下图所示，然后进入下一步。

　    

5、随后，可以直接进入代码窗口，如下图所示，然后进入下一步。

　    

6、最后，编写号后，单击运行即可，如下图所示。这样，问题就解决了。

　    

Answer 2

实现的方法和详细的操作步骤如下：

1、第一步，在工具箱中有命令按钮控件，见下图，转到下面的步骤。

2、第二步，执行完上面的操作之后，可以双击直接在表单上绘制，见下图，转到下面的步骤。

3、第三步，执行完上面的操作之后，也可以单击命令按钮控件并将图形拖到页面上，见下图，转到下面的步骤。

4、第四步，执行完上面的操作之后，如果对外观不满意，可以在“属性”窗口中进行更改，见下图，转到下面的步骤。

5、第五步，执行完上面的操作之后，或者直接进入代码窗口，见下图，转到下面的步骤。

6、第六步，执行完上面的操作之后，编辑完成，单击Run即可，见下图。这样，就解决了这个问题了。

Answer 3

1、首先我们在工具箱中的命令按钮控件。

2、接下来我们可以双击直接在窗体上绘制。

3、或者我们可以点击一下命令按钮控件，然后在页面上拖曳绘制。

4、如果对外观不满意的话我们可以在属性窗口中更改。

5、或者可以直接进入代码窗口。

6、编写完毕后我们点击运行。

注意事项：

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

Answer 4

根据你的要求,我简单做了一个日期和收入的对应图,代码及调试结果如下所示

Private Sub Command1_Click()

          Dim i   As Integer

          Dim conn  As New ADODB.Connection

          Dim rs     As New ADODB.Recordset

          Set conn = New ADODB.Connection

          Set rs = New ADODB.Recordset

          

          

          conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb"

          conn.Open

          rs.Open "select  *  from   lwl", conn, adOpenKeyset, adLockOptimistic

            

        '  Set MSChart1.DataSource = rs

          

  With MSChart1

  

       '// 以线条方式显示

      .chartType = 3

      

      '// 把刻录改为手工方式

      .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False

      

       '// 设置最大值

      .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000

      

      '// 设置最小值

      .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0

      

      '// 设置每格为 1

      .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1

       

      '// 增加测试数据

      .ColumnCount = 1

      

      '//轴坐标标题

      .Plot.Axis(VtChAxisIdX, 0).AxisTitle = "日期"

      .Plot.Axis(VtChAxisIdY, 0).AxisTitle = "收入"

      

      '//轴坐标标题字体大小的设置

      .Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15

      .Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25

      

      '//设置图表标题

      .Title.Text = "日期和收入对应折线图"

      

      

      

      '// 将图表作为图例的背景。

      .ShowLegend = False

      '// 标记每个点的值

      For i = 1 To .Plot.SeriesCollection.Count

         .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint

      Next

      

      If rs.RecordCount > 0 Then

          rs.MoveFirst

      Else

          Exit Sub

      End If

       

       For i = 0 To rs.RecordCount - 1

            

          .RowCount = rs.RecordCount

         .Row = i + 1

         .RowLabel = CStr(rs("日期"))

          .Data = rs("收入")

          

       rs.MoveNext

      Next

     

  End With

End Sub

Answer 5

（1）在窗体上布置一个MSChart控件

（2）窗体代码

Option Explicit

Private Sub Form_Load()
    '设置MSChart1
    With MSChart1
        '图上只画一条曲线
        .ColumnCount = 1
        '设置图表类型为二维曲线；默认为直方图
        .chartType = VtChChartType2dLine
        'X轴显示10个单位
        .RowCount = 10
    End With
    
    '曲线数据
    Dim v(1 To 10) As Single
    Dim i As Integer
    '曲线数据随机产生
    For i = 1 To 10
        v(i) = Rnd * 99 + 1
    Next
    ' 显示曲线
    With MSChart1
        For i = 1 To 10
            ' 指定X轴的坐标
            .Row = i
            ' X轴标签
            .RowLabel = i
            ' 与x对应的值
            .data = v(i)
        Next
    End With
End Sub

（3）运行结果

（4）其他注意事项

在设计状态，鼠标右键单击MSChart控件，在弹出菜单中单击“属性”，可以调出控件的属性页窗口。利用这个窗口，可以直观地设计MSChart