Question

visual basic 6.0怎么实现像任务管理器的CPU性能监控那样可以移动的网格？

就是想让上面的曲线往左移一下

Answer 1

用timer控件每个1秒重画图像框中线条，参考程序
Dim k As Long
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.BackColor = vbBlack
Picture1.ForeColor = vbGreen
Timer1.Interval = 1000
Timer1.Enabled = True
Picture1.Scale (0, 100)-(100, 0)
End Sub
Private Sub Timer1_Timer()
Picture1.Cls
Picture1.Line (0, 25)-(100, 25)
Picture1.Line (0, 50)-(100, 50)
Picture1.Line (0, 75)-(100, 75)
For i = 1 To 10
Picture1.Line (i * 10 - k, 0)-(i * 10 - k, 100)
Next i
k = k + 1
If k > 9 Then k = 0
End Sub