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

发布网友发布时间：2022-04-24 19:53

我来回答

共5个回答

热心网友时间：2022-04-12 02:05

具体操作步骤如下：

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

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

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

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

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

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

热心网友时间：2022-04-12 03:23

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

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

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

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

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

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

注意事项：

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

热心网友时间：2022-04-12 04:57

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

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

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

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

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

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

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

热心网友时间：2022-04-12 06:49

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

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

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

End With

End Sub

参考资料：http://hi.baidu.com/mizuda/blog/item/ab8af02870fefff499250ac8.html

热心网友时间：2022-04-12 08:57

（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