VB中的简单动画代码设计

概述               最近接触VB百例时接触到了简单的动画设计,现在将程序相关的知识整理在这里.（下面是一个例子--逃跑的小恐龙）               首先,打开Visual Basic ,新建窗体,在窗体中添加计时器控件、image1控件数组(个数根据自己的程序而定)、image2（用于动画的播放)                                        O

最近接触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

总结

以上是内存溢出为你收集整理的VB中的简单动画代码设计全部内容，希望文章能够帮你解决VB中的简单动画代码设计所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。