图片框中动画

一个网友要我做的，一直没有和他碰到，所以一直没有给他。感到很抱歉。技术含量不高，有待后人改进。屏幕比较闪，抖动厉害。。。

界面如下：界面图 http://blog.csdn.net/images/blog_csdn_net/huyoo/60597/o_pr.gif

代码如下：

Dim startPoint As Integer Dim ar(250) As Double Private Sub Command1_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() startPoint = Picture1.Width - 20 Dim intTemp As Integer For i = 1 To UBound(ar) ar(i) = Rnd(Now()) * 100 Next i End Sub Private Sub Timer1_Timer() startPoint = startPoint - 1 VCenterY = Picture1.Height / 2 '利用定时器周期性地读取 'Dim tmp As Variant ' CPU资源占用状况参数 'tmp = GetUSBData '获得数据数组 Me.Caption = App.Title & "   " & FormatPercent(tmp / 100) ' '在窗体标题栏用百分比数字形式反映 'Sum = Sum + tmp '累加统计 'Index = Index + 1 '次数统计 'Avg = Int(Sum / Index) '求平均值 Picture1.Cls '清除图示内容 Picture1.Line (0, VCenterY)-(Picture1.Width, VCenterY), &HBF& Picture1.Line (startPoint, VCenterY)-(startPoint, ar(1)), &HBF& For i = 1 To UBound(ar) - 1 Debug.Print startPoint, ar(i) Picture1.Line (startPoint + i, ar(i))-(startPoint + i + 1, ar(i + 1)), &HBF& Next i End Sub Private Function GetUSBData() As Variant End Function

截图如下：运行时