问VB怎么制作一个动画啊

简单,什么叫动画?对于VB程序而言,动画就是让物体或者是颜色不停变化的过程,人走路还不简单吗?准备2张jpg图片,出左脚和出右脚的dim i as integer '全局变量function zoulu ()i=i+1 '让程序每次调用的时候加1if i mod 2 =0 then '成绩偶数变换image1.picture="1.jpg"elseimage1.picture="2.jpg"end if end function然后再拖个时钟,周期设置为1000Private Sub Timer1_Timer()i = 1Call zouluEnd Sub走路动画做好了~以上FISH自创,如果有错误,请各位大牛斧正hi.baidu.com/4430live

可以做比较简单的小动画

Dim j%, y%, x1%, y1%, blockw%, blockh% Private Sub Form_Load() Me.AutoRedraw = True Me.DrawWidth = 2 Me.Width = 5120 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Me.Cls y = Me.Height \ 2: blockw = 500: blockh = 200 x1 = 0: y1 = y - 230 rb = True Timer1.Interval = 50 End Sub aPrivate Sub Timer1_Timer() Dim x As Integer Me.Cls For I = 1 To 12 If I Mod 2 = 0 Then Line (x - j, y)-(x - j + blockw, y + blockh), vbBlue, BF Else Line (x - j, y)-(x - j + blockw, y + blockh), vbRed, BF End If x = x + 500 If x >= 6000 Then x = 0 Next I j = j + 100 If j > 900 Then j = 0 Line (x1, y1)-(x1 + 500, y1 + 100), , B Me.Circle (x1 + 100, y1 + 150), 50 Me.Circle (x1 + 380, y1 + 150), 50 x1 = x1 + 50 If x1 >= 5000 Then x1 = -500 End Sub

大家都太积极了，我也贴出来好了，新建一个窗体只需要添加下面的代码就可以运行注：这是CBM666的代码，我不是原创，但是我很欣赏CBM666，简直是崇拜啊。。。。Option ExplicitPrivate WithEvents Timer1 As TimerDim i%, j%, x1%, y1%, blockw%, blockh%, carX%, carY%, pcolor$Dim N%, L%, C$Const Captions As String = "烟花飘飘的小汽车"Private Sub Form_Load() Me.AutoRedraw = True Me.DrawWidth = 2 Me.Width = 5120 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Me.Cls carY = Me.Height \ 2: blockw = 500: blockh = 200 x1 = 0: y1 = carY - 230 Set Timer1 = Controls.Add("vb.timer", "timer1") Timer1.Interval = 50End SubPrivate Sub Timer1_Timer() Me.Cls For i = 1 To 12 pcolor = IIf(i Mod 2 = 0, vbBlue, vbRed) Line (carX - j, carY)-(carX - j + blockw, carY + blockh), pcolor, BF carX = IIf(carX + 500 >= 6000, 0, carX + 500) Next i j = IIf(j + 100 > 900, 0, j + 100) Line (x1, y1)-(x1 + 500, y1 + 100), , B Me.Circle (x1 + 100, y1 + 150), 50 Me.Circle (x1 + 380, y1 + 150), 50 x1 = IIf(x1 + 50 >= 5000, -500, x1 + 50) L = Int(Me.Width / 220) C = String(L, " ") & Captions & String(L, " ") N = N + 1 If N > Len(C) - L Then N = 1 Me.Caption = Mid(C, N, L)End Sub