Question

VB中pictureBOX的曲线如何滚动显示

就是显示时一直向右移动就像CPU的性能曲线一样
Private Sub draw2()
Dim d As Integer
Picture2.Cls
Picture2.DrawWidth = 1
Picture2.Scale (0, 5)-(10, 0)
For d = 1 To cishu1 - 1
X1 = (d - 1): Y1 = data1(d - 1)
X2 = d: Y2 = data1(d)
Picture2.Line (X1, Y1)-(X2, Y2), QBColor(0)
Next d
End Sub
这是我写的一部份如何能X轴上的数过了10后能继续变化啊

Answer 1

用一个数组作为缓冲区（环形队列方式）将你画的数据记录下来，
每隔一秒，将一个数据放入缓冲区，如果缓冲区满了就淘汰掉一个数据（移动首指针），所有数据向前移动一格（移动尾指针），再加入新的数据，之后用更新后的数据重画整个缓冲区数据。

其实很简单的，就是需要一个环形缓冲区来记录，这个缓冲区使用环形+指针更好，就不需要移动数据了。效率更高。

追问

可以给个示例程序吗？我刚学VB不是太理解

追答

http://www.cnblogs.com/ywb-lv/archive/2012/01/30/2331549.html