我刚接触vb,想用mschart画图,但不知道怎么编程,有例子可以参考吗。我用visual basic2008.
还有,这个例子MSChart控件示例下面的示例显示一个具有8行8列数据的三维图表,并设置了图例的参数。PrivateSubCommand1_Click()WithMSCh...
还有,这个例子
MSChart 控件示例
下面的示例显示一个具有 8 行 8 列数据的三维图表,并设置了图例的参数。
Private Sub Command1_Click()
With MSChart1
'显示一个具有 8 行 8 列数据的三维图表。
.ChartType = VtChChartType3dBar
.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
'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
End Sub
每一个语句前面的对象是谁?我弄不懂,语法总是错误,求解答,谢谢! 展开
MSChart 控件示例
下面的示例显示一个具有 8 行 8 列数据的三维图表,并设置了图例的参数。
Private Sub Command1_Click()
With MSChart1
'显示一个具有 8 行 8 列数据的三维图表。
.ChartType = VtChChartType3dBar
.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
'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
End Sub
每一个语句前面的对象是谁?我弄不懂,语法总是错误,求解答,谢谢! 展开
3个回答
展开全部
代码没有错误哦~~你是否添加MSChart1控件--部件--microsoft chart control 6.0
对象不就是MSChart1喽 用with语句设置对象属性
对象不就是MSChart1喽 用with语句设置对象属性
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
With MSChart1
'显示一个具有 8 行 8 列数据的三维图表。
.ChartType = VtChChartType3dBar
.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
'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
相当于
MSChart1.ChartType = VtChChartType3dBar
MSChart1.ColumnCount = 8
MSChart1.RowCount = 8
For column = 1 To 8
For row = 1 To 8
MSChart1.Column = column
MSChart1.Row = row
MSChart1.Data = row * 10
Next
Next
MSChart1.ShowLegend = True
MSChart1.SelectPart VtChPartTypePlot, index1, index2, index3, index4
MSChart1.EditCopy
MSChart1.SelectPart VtChPartTypeLegend, index1, index2, index3, index4
MSChart1.EditPaste
如tianqing20wen所说的那样,检查一下是否添加了MSChart控件。
'显示一个具有 8 行 8 列数据的三维图表。
.ChartType = VtChChartType3dBar
.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
'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
相当于
MSChart1.ChartType = VtChChartType3dBar
MSChart1.ColumnCount = 8
MSChart1.RowCount = 8
For column = 1 To 8
For row = 1 To 8
MSChart1.Column = column
MSChart1.Row = row
MSChart1.Data = row * 10
Next
Next
MSChart1.ShowLegend = True
MSChart1.SelectPart VtChPartTypePlot, index1, index2, index3, index4
MSChart1.EditCopy
MSChart1.SelectPart VtChPartTypeLegend, index1, index2, index3, index4
MSChart1.EditPaste
如tianqing20wen所说的那样,检查一下是否添加了MSChart控件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询