IBM Rational 系统开发最佳实践工具包	WebSphere MQ 最佳实践 TOP 15

在VB6.0中如何画曲线

楼主jinhailv（阿非）2006-03-09 09:45:19 在 VB / 基础类提问

我现在需要在VB6.0程序中画一些不规则的曲线,并使这些曲线具有动态连结属性.例如:某一条曲线在某个条件发生变化(当X=10或X=20)时,该条曲线的颜色也随着变化(红变兰).请高手给我指点一下,最好给出例子,谢谢! 问题点数：50、回复次数：10Top

1 楼daiming（小蔚）回复于 2006-03-09 14:13:37 得分 0

http://www.wave12.com/web/MulCon.asp?ID=17Top

2 楼jinhai2003（飞鱼）回复于 2006-03-10 09:14:28 得分 20

顺便问一个问题:在VB程序中如何在Form窗体中的位图上画一些不规则的曲线,需要用什么控件才能实现.Top

3 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-13 10:43:24 得分 20

画任意曲线
Option Explicit
Dim bln As Boolean

Private Sub Command1_Click()
Me.Cls
End Sub

Private Sub Form_Load()
bln = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
bln = True
CurrentX = X
CurrentY = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bln = True Then
DrawWidth = 20
Line (CurrentX, CurrentY)-(X, Y), &H8000000F
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
bln = False
End If
End SubTop

4 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-13 10:44:08 得分 0

&H8000000F
把这个改成你要的颜色··
比如 vbred等Top

5 楼cxianfa（含笑）回复于 2006-03-14 23:51:59 得分 0

我也需要这样的东西，我目前智能对数据库的东西用mschart表示出来，可是我想用那种曲线来表示就好了。有高手给点代码吗。谢谢Top

6 楼jinhailv（阿非）回复于 2006-03-15 08:14:29 得分 0

谢谢 ZOU_SEAFARER(国际海员)
我的意思不是在程序已经运行的时候通过鼠标来画曲线,而是在程序还没有运行的时候,在form1的窗体下画一些不规则的曲线(VB中只能用line控件画直线),请教高手用什么方法可以实现.谢谢Top

7 楼AnnaBear（淡淡）回复于 2006-03-15 09:18:51 得分 0

mark
等待学习Top

8 楼rose_886886（）回复于 2006-03-15 10:21:17 得分 0

用画弧线的方法不行吗?Top

9 楼Wonny（）回复于 2006-03-15 23:40:58 得分 0

可用近似法，将曲线拆分成小段的直线。ZOU_SEAFARER(国际海员) 提供的方法很好。Top

10 楼IamDeane（冷冷的风(Deane)）回复于 2006-03-16 09:52:23 得分 10

画曲线用贝塞尔（Bezier）曲线函数

PolyBezier, PolyBezierTo

VB声明
Declare Function PolyBezier& Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long)
Declare Function PolyBezierTo& Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long)
说明
描绘一条或多条贝塞尔（Bezier）曲线。PolyBezierTo用于将当前画笔位置设为前一条曲线的终点
返回值
Long，非零表示成功，零表示失败
参数表
参数类型及说明
hdc Long，要在其中绘图的设备场景
lppt POINTAPI，指定一个POINTAPI结构数组。其中的第一个结构指定了起点。剩下的点三个一组——包括两个控件点和一个终点
原文：An array of POINTAPI structures. The first structure specifies the starting point. The remaining points are in groups of three, consisting of two control points and an end point.
cPoints Long，lppt数组的总点数

Top