给你一组数据，如何使画出的曲线变成平滑曲线? - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 给你一组数据，如何使画出的曲线变成平滑曲线?

标题：给你一组数据，如何使画出的曲线变成平滑曲线?

只看楼主

action1

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-7-8

楼主

问题点数：0 回复次数：10

给你一组数据，如何使画出的曲线变成平滑曲线?

给你一组数据，如何使画出的曲线变成平滑曲线?我用picture1.line画出来是折线，想让它变平滑些，该怎么处理?

[此贴子已经被作者于2006-7-22 13:01:46编辑过]

搜索更多相关主题的帖子: 曲线　数据　折线　

2006-07-22 13:00

VB爱上我

等　级：贵宾
威　望：25
帖　子：478
专家分：52
注　册：2005-10-14

第 2 楼

得分:0

点多了应该可以平滑了

IT618资讯网提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.

2006-07-22 13:02

action1

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-7-8

第 3 楼

得分:0

你没有明白我的意思，就是那几个数据。但要变平滑线。excel有这个功能

2006-07-22 13:05

穆扬

等　级：禁止发言
帖　子：1910
专家分：0
注　册：2006-6-1

第 4 楼

得分:0

提示: 作者被禁止或删除内容自动屏蔽

2006-07-22 13:52

action1

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-7-8

第 5 楼

得分:0

有没有例子给一个?用贝塞尔曲线（API）不行，我已是过.

2006-07-22 16:53

穆扬

等　级：禁止发言
帖　子：1910
专家分：0
注　册：2006-6-1

第 6 楼

得分:0

提示: 作者被禁止或删除内容自动屏蔽

2006-07-23 07:18

dragonfly

等　级：贵宾
威　望：17
帖　子：1024
专家分：0
注　册：2006-3-20

第 7 楼

得分:0

我也想知道,顶一下

2006-07-23 14:24

action1

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-7-8

第 8 楼

得分:0

比如:
Dim P, X
P = Array("180.6", "200.8", "310.8", "470.9", "580.6", "680.6", "770.6", "800.6", "910.1")
X = Array("180.6", "400.8", "510.8", "270.9", "380.6", "390.6", "470.6", "500.6", "610.1")
Picture1.AutoRedraw = True

For i = 0 To 7 'XAX
Picture1.Line (X(i), P(i))-(X(i + 1), P(i + 1)), vbBlue
Next

2006-07-23 22:32

穆扬

等　级：禁止发言
帖　子：1910
专家分：0
注　册：2006-6-1

第 9 楼

得分:0

提示: 作者被禁止或删除内容自动屏蔽

2006-07-23 23:54

action1

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-7-8

第 10 楼

得分:0

这不是，这是划线。
用贝塞尔曲线（API），你怎用?请执教，兄弟先谢!!!!!!!!!