mschart的散点图怎么画??

pb22 2006-08-30 02:30:44
画一条还行,两条,三条就不知道怎么设置了
我现在是绑定到ado,
第一列是横坐标,第二列是Y1
第三列是Y2,但是画不出来啊

...全文
153 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhouxu21 2007-03-04
  • 打赏
  • 举报
回复
Dim dd(1 To 1152, 1 To 4) As Variant
Dim j As Long
Dim wav(2500) As Single

'读取红外波段波长
i = 0
Open "d:\lowe\swavd.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, wav(i)
Loop
Close #1
For i = 1 To 1151
dd(i, 1) = wav(i)
dd(i, 3) = wav(i)

Next i


dd(1, 1) = "R"
dd(1, 3) = "T"
Open App.Path & "\daor.txt" For Input As #1
For i = 2 To 1151
Input #1, dd(1153 - i, 2)
Next i
Close #1

Open App.Path & "\daot.txt" For Input As #1
For i = 2 To 1151
Input #1, dd(1153 - i, 4)
Next i
Close #1



MSChart1.ChartData = dd
pb22 2006-09-14
  • 打赏
  • 举报
回复
顶起来

1,451

社区成员

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

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