具体操作步骤如下:
1、首先,单击左侧工具框中的命令按钮,如下图所示,然后进入下一步。
2、其次,双击以直接在表单上绘制,如下图所示,然后进入下一步。
3、接着,或者可以单击命令按钮控件,再在页面上拖动绘制,如下图所示,然后进入下一步。
4、然后,如果对外观不满意,可以在属性窗口中对其进行更改,如下图所示,然后进入下一步。
5、随后,可以直接进入代码窗口,如下图所示,然后进入下一步。
6、最后,编写号后,单击运行即可,如下图所示。这样,问题就解决了。
实现的方法和详细的操作步骤如下:
1、第一步,在工具箱中有命令按钮控件,见下图,转到下面的步骤。
2、第二步,执行完上面的操作之后,可以双击直接在表单上绘制,见下图,转到下面的步骤。
3、第三步,执行完上面的操作之后,也可以单击命令按钮控件并将图形拖到页面上,见下图,转到下面的步骤。
4、第四步,执行完上面的操作之后,如果对外观不满意,可以在“属性”窗口中进行更改,见下图,转到下面的步骤。
5、第五步,执行完上面的操作之后,或者直接进入代码窗口,见下图,转到下面的步骤。
6、第六步,执行完上面的操作之后,编辑完成,单击Run即可,见下图。这样,就解决了这个问题了。
1、首先我们在工具箱中的命令按钮控件。
2、接下来我们可以双击直接在窗体上绘制。
3、或者我们可以点击一下命令按钮控件,然后在页面上拖曳绘制。
4、如果对外观不满意的话我们可以在属性窗口中更改。
5、或者可以直接进入代码窗口。
6、编写完毕后我们点击运行。
注意事项:
VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件,用于高效生成类型安全和面向对象的应用程序。
根据你的要求,我简单做了一个日期和收入的对应图,代码及调试结果如下所示
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
(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