我想用曲线动态地显示采集点的变化,是否有这样的控件啊?谢谢!!!

Question

Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Dim Pts(0 To 6) As POINTAPIPrivate Sub Form_Paint()
    Pts(0).X = 10: Pts(0).Y = 10
    Pts(1).X = 10: Pts(1).Y = 100
    Pts(2).X = 10: Pts(2).Y = 50
    Pts(3).X = 50: Pts(3).Y = 10
    Pts(4).X = 10: Pts(4).Y = 50
    Pts(5).X = 50: Pts(5).Y = 100
    Polyline Me.hdc, Pts(0), 6
    Pts(0).X = 60: Pts(0).Y = 100
    Pts(1).X = 60: Pts(1).Y = 10
    Pts(2).X = 100: Pts(2).Y = 10
    Pts(3).X = 100: Pts(3).Y = 50
    Pts(4).X = 60: Pts(4).Y = 50
    Polyline Me.hdc, Pts(0), 5
    Pts(0).X = 110: Pts(0).Y = 10
    Pts(1).X = 150: Pts(1).Y = 10
    Pts(2).X = 160: Pts(2).Y = 20
    Pts(3).X = 160: Pts(3).Y = 90
    Pts(4).X = 150: Pts(4).Y = 100
    Pts(5).X = 110: Pts(5).Y = 100
    Pts(6).X = 110: Pts(6).Y = 10
    
    Polyline Me.hdc, Pts(0), 7
End Sub

Answer 1

比如在Picture1中画
dim data(1 to 3,1 to 50) as integerfor i=2 to 50
 picture1.forecolor=qbcolor(1)
 picture1.line(i-1,100-data(1,i-1))-(i,100-data(1,i-1))
 picture1.forecolor=qbcolor(2)
 picture1.line(i-1,200-data(2,i-1))-(i,200-data(2,i-1))
 picture1.forecolor=qbcolor(3)
 picture1.line(i-1,300-data(3,i-1))-(i,300-data(3,i-1))
next i