| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1846 人关注过本帖
标题:怎样使一幅幅图片接着在表单页面上浮动
只看楼主 加入收藏
solution
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2006-6-26
收藏
 问题点数:0 回复次数:24 
怎样使一幅幅图片接着在表单页面上浮动
我在主的表单上设置了一些图片.能使图片在表单上浮动.但只能使一幅图片浮动,不能使一幅幅图片连续浮动.
我在Timer1的timer 里面写的代码是:
IF Thisform.Image1.Top<0-Thisform.Image1.Height
Thisform.Image1.Top=Thisform.Height
ENDIF
Thisform.Image1.Top=Thisform.Image1.Top-1
不知道怎么才能使幅幅image图片连续浮动?请各位高手帮忙.
搜索更多相关主题的帖子: 表单 页面 
2006-07-24 10:58
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
一幅和多幅的做法是一样的,就是改变Image的Top和Left参数。但最好采用随机数。

两人行已有我师……
2006-07-24 14:27
solution
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2006-6-26
收藏
得分:0 

我不太明白.有点似懂非懂的状态.


2006-07-24 15:17
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
你要描述清楚上将图片在表单中从上到下移动、从下到上移动、上下往复移动、从右下到左上移动、.......、随机移动?

给一个上下往复移动的例子:上移遇到表单的上边就往下,下移遇到表单的下边就往上
(1)在表单的初始化部分有
PUBLIC FH
FH=1
THISFORM.TIMER1.INTERVAL=20
(2)在TIMER1.TIMER里有
FH=IIF(THISFORM.IMAGE1.TOP<=0,1,IIF(THISFORM.IMAGE1.TOP+THISFORM.IMAGE1.HEIGHT>=THISFORM.HEIGHT,-1,FH))
THISFORM.IMAGE1.TOP=THISFORM.IMAGE1.TOP+FH

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-07-24 15:54
solution
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2006-6-26
收藏
得分:0 

就是最简单的从上往下的移动.一顶帽子接着一顶帽子上下移动.
我不太懂TIGER5392,在表单的初始化部分是什么意思啊?我不太明白.


2006-07-24 16:29
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
FORM.INIT()

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-07-24 17:30
solution
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2006-6-26
收藏
得分:0 

谢谢你-Tiger5392


2006-07-24 17:34
solution
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2006-6-26
收藏
得分:0 

你教我的是一幅图画在表单上下移动.我想要把它们循环来回移动.就像我上面写的代码一样.但想要一幅幅图片一个接一个地循环移动,而不是像教我的那种上下移动.你能再想想办法教我吗?


2006-07-24 17:41
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
仅仅从上往下移动的话,该程序要修改。(从上往下是指:下移遇到下边的时候继续从上开始)
(1)在表单的初始化部分有
THISFORM.TIMER1.INTERVAL=20 &&要慢一点的话,修改该值>20,要更快的话,修改该值<20但不能是0
(2)在TIMER1.TIMER里有
IF THISFORM.IMAGE1.TOP+THISFORM.IMAGE1.HEIGHT>=THISFORM.HEIGHT
THISFORM.IMAGE1.TOP=0
ELSE
THISFORM.IMAGE1.TOP=THISFORM.IMAGE1.TOP+1
ENDIF

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-07-24 17:44
solution
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2006-6-26
收藏
得分:0 
我就想请问你怎么使一幅幅图一个接一个地移动.其余地我都会了.就不麻烦大家了.

2006-07-24 17:46
快速回复:怎样使一幅幅图片接着在表单页面上浮动
数据加载中...
 
   



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

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