标题:关于计时器的题目
取消只看楼主
陆嘉文
Rank: 1
来 自:江西
等 级:新手上路
帖 子:96
专家分:6
注 册:2011-11-10
结帖率:76.92%
已结贴  问题点数:20 回复次数:1 
关于计时器的题目
题目:利用图像框和计时器设计一个简单的动画程序,(可以用两张连续的图片来做)
代码:Private Sub Form_Load()
Timer1.Interval = 100
Image1.Left = 0
Image1.Top = Height - Image1.Height
Image2.Visible = False
Image3.Visible = False


End Sub

Private Sub Timer1_Timer()
Dim a As Integer
If a = 0 Then
Image1.Picture = Image2.Picture
a = 1
Else
Image1.Picture = Image3.Picture
a = 0
End If
Image1.Move Image1.Left + 100, Image1.Top - 50
If Image1.Left > Width Then
   Image1.Left = -Image1.Width
   Image1.Top = Height
   End If


End Sub
谁帮我看看哪里不对啊?谢谢,非常感谢!
搜索更多相关主题的帖子: 计时器 动画 
2011-11-20 00:47
陆嘉文
Rank: 1
来 自:江西
等 级:新手上路
帖 子:96
专家分:6
注 册:2011-11-10
得分:0 
你也在那个论坛啊!嘻嘻!
2011-11-20 14:26



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-355733-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.281445 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved