我在主的表单上设置了一些图片.能使图片在表单上浮动.但只能使一幅图片浮动,不能使一幅幅图片连续浮动.
我在Timer1的timer 里面写的代码是：
IF Thisform.Image1.Top<0-Thisform.Image1.Height
Thisform.Image1.Top=Thisform.Height
ENDIF
Thisform.Image1.Top=Thisform.Image1.Top-1
不知道怎么才能使幅幅image图片连续浮动？请各位高手帮忙．

一幅和多幅的做法是一样的，就是改变Image的Top和Left参数。但最好采用随机数。

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

你要描述清楚上将图片在表单中从上到下移动、从下到上移动、上下往复移动、从右下到左上移动、.......、随机移动?

给一个上下往复移动的例子：上移遇到表单的上边就往下，下移遇到表单的下边就往上
(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

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

FORM.INIT()

谢谢你－Tiger5392

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

仅仅从上往下移动的话，该程序要修改。(从上往下是指：下移遇到下边的时候继续从上开始)
(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

我就想请问你怎么使一幅幅图一个接一个地移动．其余地我都会了．就不麻烦大家了．