可用分押宝游戏火热进行中...	专题改版：Java Web 专题

请问一下MSChart怎么用？

楼主walkinhill（reaway）2003-08-03 21:41:23 在 VB / 基础类提问

我有一个数组，共有5列，想画一个X-Y散点图，就是以数组的第一列为行坐标，其他4列为纵坐标，画一个XY散点图，但是不知道怎么画？还有X轴和Y轴的标签（刻度）怎么设，不要显示什么"R1,R2,R3"这些东西！
请高手帮忙解决一下，谢谢！
分不够可以加问题点数：100、回复次数：9Top

1 楼sunmaoyou（不懂大师）回复于 2003-08-03 21:49:35 得分 10

那你可以改变一下rowlabel的属性值，在代码中可以实现的
有一些设置，可以在mschart中，右键，属性，可以改很多东西的Top

2 楼rainstormmaster（暴风雨 v2.0）回复于 2003-08-03 22:36:45 得分 10

MSChart控件怎样显示图例
http://www.china-askpro.com/msg15/qa14.shtml

Top

3 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-08-04 12:32:05 得分 10

http://expert.csdn.net/Expert/topic/2096/2096030.xml?temp=.984173Top

4 楼since1990（level）回复于 2003-08-04 13:38:39 得分 0

帮你upTop

5 楼mac110（mac110）回复于 2003-08-04 15:14:41 得分 30

With MSChart1
.ChartType = VtChChartType2dBar
.ColumnCount = 8
.RowCount = 8
For column = 1 To 8
For row = 1 To 8
.Column = column
.Row = row
.Data = row * 10
Next row
Next column
这是显示柱图，不知道能不能启发你...
改变X轴标签：
mschart1.column=1
mschart1.row=1
mschart1.rowlabel="一月"
mschart1.column=2
mschart1.row=2
mschart1.rowlabel="二月"

Top

6 楼alicky（周松）回复于 2003-08-04 15:26:42 得分 40

Microsoft Chart 控件是一个数据绑定控件，允许您以图形方式表示数值数据。不像其他数据绑定控件，Chart 控件不能同 Remote Data 控件一起使用，也不能同 Data 控件一起使用。它可以同 ADO Data Control、ADO Recordset 以及 Data Environment 一起使用。该示例将显示如何打开一个 ADO Recordset，该 ADO Recordset 包含了您想要显示的字段，并且 Chart 控件的 DataSource 属性设置为 Recordset 对象。如果第一个字段包含字符串数据，则该数据将作为 X 轴标签使用。

下面的示例显示了三组数据，先创建一个具有四个字段的 Recordset 对象；第一个字段包含 X 轴的标签，而其他的字段作为系列数据显示。

Option Explicit
' 确保设置一个对 Microsoft ActiveX Data
' Objects 2.0 Library 的引用。
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection

Private Sub Form_Load()
Dim strQuery As String ' SQL 查询字符串。

' 首先将路径改为到您机器的一个有效路径。
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
"C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb" ' <-更改该路径。

' 打开连接。
cn.Open

' 创建一个只检索四个字段的查询。
strQuery = "SELECT ProductName, UnitPrice, " & _
"UnitsInStock, UnitsOnOrder FROM Products WHERE SupplierID = 1"
' 打开记录集。
rsProducts.Open strQuery, cn, adOpenKeyset
' 将 DataSource 设置为该记录集。
With MSChart1
.ShowLegend = True
Set .DataSource = rsProducts
End With
End Sub
Top

7 楼walkinhill（reaway）回复于 2003-08-09 20:11:21 得分 0

我知道怎么用了，谢谢各位，结贴Top

8 楼mac110（mac110）回复于 2003-08-11 12:34:08 得分 0

你怎么没给我们分数啊Top

9 楼bpy（历为）回复于 2004-02-18 22:35:57 得分 0

gz
Top