如何进行简单的二维作图
编号：QA000992
建立日期: 1999年5月15日 最后修改日期：1999年11月15日
所属类别：
xx:
VB6
Win97
简单的二维作图（包括刻度、最好有线性等功能）。
回答:
你可以使用VB自己带的控件MSChart。它提供很多种二维数据的显示方式，特别适合显示统计数据。
首先在VB菜单“工程|部件”中选中“Microsoft Chart Control”项。此时在工具面板中出现MSChart控件图标。选中它并窗体上放置MSChart控件，则出现缺省状态的直方图。设其ColumnCount属性为1（一组数据）。下面的代码假定数据库example.mdb中包含“日期”和“数据”两个字段。
Dim i As Integer
Dim NewDyn As Recordset
Dim OpenWs As Workspace
Dim OpenDB as DataBase
Set OpenWs = DBengine.Workspaces(0)
Set OpenDB = OpenWs.OpenDatabase("example.mdb")
Set NetDyn = OpenDB.OpenRecordset("select * from data", dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
With MSChart1
.TitleText="直方图示例"
.RowCount = NewDyn.RecordCount
For i = 1 To NewDyn.RecordCount
.Row = i
.Data = NewDyn("数据")
.Rowlabel = NewDyn("日期")
NewDyn.MoveNext
Next
End With
NewDyn.Close
如果想生成其他类型的图形，修改MSChart1的ChartType属性即可定制成其他各种二维或三维图表:3D 条形图、2D 条形图、3D 折线图、2D 折线图、3D 面积图、2D 面积图、3D 阶梯图、2D 阶梯图、3D 组合图、2D 组合图、2D 饼图和2D XY 散点图。
另外，参考QA001200 "如何打印MSChart"、QA001414 "MSChart控件怎样显示图例"。
此问题由李海回答。
| |
|
|
| |
|
|
