想知道VB的哪个控件可以用来做曲线图

kinlzy 2003-05-27 06:01:54
现在想用三条曲线显示三种不同数据在不同时间段的数据量

哪位高手告诉我控件在哪???
它的主要属性有哪些??
怎么用???

100分送上,急!!!!!

混分的别进来
...全文
354 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
kinlzy 2003-05-28
  • 打赏
  • 举报
回复
谢谢,马上给你分:)
lihonggen0 2003-05-28
  • 打赏
  • 举报
回复
.Column = 1
.Row = 1
.Data =
kinlzy 2003-05-28
  • 打赏
  • 举报
回复
楼上的,你说的控件的哪个属性可以改变曲线的值:)
lihonggen0 2003-05-27
  • 打赏
  • 举报
回复
MSChart1
.ChartType = 这个属性可以设置图表类型
lihonggen0 2003-05-27
  • 打赏
  • 举报
回复
mschart

部件--Microsoft Chart Control
lihonggen0 2003-05-27
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.ChartType = VtChChartType2dBar
.ColumnCount = 2
.RowCount = MSHFlexGrid1.Rows - 1
.RowCount = 1
.TitleText = "直方图示例 本旬出口数量与去年同期对比值"
Dim XXX, XXXX As Double
For I = 1 To MSHFlexGrid1.Rows - 1
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
XXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
.Column = 1
.Row = 1
.Data = XXX
.Column = 2
.Row = 1
.Data = XXXX
.RowLabel = MSHFlexGrid1.TextMatrix(I, 1)
.RowLabel = ""
Next I
.Column = 1
.ColumnLabel = "本旬出口数量"
.Column = 2
.ColumnLabel = "去年同期对比百分数"
End With
End If
End Sub

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧