| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 837 人关注过本帖, 1 人收藏
标题:关于计时器的题目
取消只看楼主 加入收藏
陆嘉文
Rank: 1
来 自:江西
等 级:新手上路
帖 子:96
专家分:6
注 册:2011-11-10
结帖率:76.92%
收藏(1)
已结贴  问题点数: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
快速回复:关于计时器的题目
数据加载中...
 
   



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

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