您的位置：程序门 -> vb -> 基础类

vb中怎么使用mschart控件

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb中怎么使用mschart控件

发表于：2007-01-12 18:45:13 楼主

哪位大哥给点代码看看，案例也行,ren51me@163.com这我邮箱
我想作的是彩票走势图那种格式的

发表于：2007-01-15 16:28:071楼得分:0

顶上去

发表于：2007-01-15 17:03:502楼得分:0

自己到网上找一下吧，我想会有的

发表于：2007-01-15 17:37:553楼得分:0

网上找了些，看不太明白，很菜，初学vb高手赐教

发表于：2007-01-31 11:22:524楼得分:0

private sub command1_click（)
dim icol as integer
dim irow as integer
dim i as integer
with mschart1
'// 以线条方式显示
.charttype = vtchcharttype2dbar
'// 把刻录改为手工方式
'.plot.axis（vtchaxisidy).valuescale.auto = false
'// 设置最大值
.plot.axis（vtchaxisidy).valuescale.maximum = 700
'// 设置最小值
.plot.axis（vtchaxisidy).valuescale.minimum = 0
'// 设置每格为 50
.plot.axis（vtchaxisidy).valuescale.minordivision = 50

'// 增加测试数据
.columncount = 4
.rowcount = 5
for icol = 1 to .columncount
for irow = 1 to .rowcount
.column = icol
.row = irow
.data = icol * irow
next
next
.column = 3
.row = 3
.data = 112
'// 将图表作为图例的背景。
.showlegend = true
'// 标记每个点的值
for i = 1 to .plot.seriescollection.count
.plot.seriescollection（i).datapoints（-1).datapointlabel.locationtype = vtchlabellocationtypeabovepoint
next

end with
end sub

发表于：2007-02-01 20:40:455楼得分:0

发表于：2007-02-01 20:41:036楼得分:0

建议去msdn搜索一下

其他资讯