Question

VB中如何实现动态曲线的绘画

从ACCESS数据库中提取一个值，然后在画面上绘画动态曲线。 十分火急，答对了还要加分
能给出可执行代码的最好了

Answer 1

你可以把ACCESS中提取的值存在一个数组里面，然后在picturebox中画线。
假如是100个点:
Dim x(99) As Double
Dim y(99) As Double
Dim i As Integer
Private Sub Form_Load()
i = 0
End Sub

Private Sub Timer1_Timer()
Picture1.Line (x(i + 1), y(i + 1))-(x(i), y(i))
i = i + 1
If i = 100 Then Timer1.Enabled = False
End Sub
也可以再从用循环语句：
For i = 0 To 99
Picture1.Line (x(i + 1), y(i + 1))-(x(i), y(i))
Next i

Answer 2

绘图 用picture 和line的结合，也可以用airsp控件来绘制，这样的控件网上很多。

Answer 3

动态
用时间控制