最近接触VB百例时接触到了简单的动画设计,现在将程序相关的知识整理在这里.(下面是一个例子--逃跑的小恐龙)
首先,打开Visual Basic ,新建窗体,在窗体中添加计时器控件、image1控件数组(个数根据自己的程序而定)、image2(用于动画的播放)
Option Explicit
Private Sub Form_Load()
img2.Left = 0 '使image从最左边开始
End Sub
Private Sub Timer1_Timer()
Static x As Integer
If x = 7 Then x = 1 ‘7为一个循环期
x = x + 1
img2.Move img2.Left + 100
If img2.Left > Me.Width Then
img2.Left = 0
End If
Select Case x 'select case 语句实现了多个图片连接起来的动画
Case 1
img2.Picture = img1(0).Picture
Case 2
img2.Picture = img1(1).Picture
Case 3
img2.Picture = img1(2).Picture
Case 4
img2.Picture = img1(3).Picture
Case 5
img2.Picture = img1(4).Picture
Case 6
img2.Picture = img1(5).Picture
End Select
End Sub