在VB中如何实现图象的重绘,(急)

来源：百度知道 编辑：UC知道 时间：2024/05/05 19:50:32
我想采用的是清屏重画图像,实现图像往左移动,图像仍然保留的效果,每次移动一定的距离
我是在picturebox中画的曲线,主要目的就是实时显示
对,跟CPU曲线类似 象要的就是这样的效果

我写个程序给你：
1.画个picturebox，取名为“p”，scalemode属性设pixel.再加个定时器timer1,enable属性设false,interval随便，取400吧.
2.假定有200个数据存在data()数组，以下代码就可在p中动态移动数据曲线了。
3.代码如下:
Dim sn As Long
Dim data(0 To 200) As Long
Private Sub Form_Load()
For k = 0 To 200 '定义测试数据
data(k) = k Mod 60
Next k
sn = 0
Timer1.Enabled = True
End Sub

'画data数组中始于startno的l个数据
Private Sub drawwindow(ByVal startno As Long, ByVal l As Long)
For k = 0 To l - 1
nodno = startno + k
If nodno <= UBound(data) Then
p.Point 10 * k, data(startno + k)'点的间隔为10pixel
If k > 0 Then
p.Line (10 * k, data(startno + k))-(10 * (k - 1), data(startno + k - 1)), RGB(0, 0, 255)
End If
End If
Next k
End Sub

Private Sub Timer1_Timer()
p.Cls '清屏
drawwindow sn, 100 '画曲线
p.Line (10, 10)-(1080, 10), RGB(0, 0, 255)'画x轴
sn = sn + 1 '数据指针到下一个
If sn > 200 Then sn = 0 '