Question

谁能用vfp在表单中设计一个标签，让标签斜的动起来，碰到边缘就反弹，类似弹球游戏的那种效果？

Answer 1

1、先在表单的init事件中加上：
public a,b
a=5
b=5
2、然后添加一个标签(label)控件到表单中，caption值改为"你好"
3、再添加一个时钟(timer)控件到表单中，将其interval属性改为200（刷新时间，单位毫秒，1000表示1秒），最后在timer事件中加上代码：
thisform.label1.left=thisform.label1.left+a
thisform.label1.top=thisform.label1.top+b
if thisform.label1.left<0 or thisform.label1.left+thisform.label1.width>thisform.width
a=-a
endif
if thisform.label1.top<0 or thisform.label1.top+thisform.label1.height>thisform.height
b=-b
endif

追问

public a,b
a=5
b=5
这能放到一个时钟(timer)控件代码中去嘛？还有thisform.label1.left<0 它为什么要小于0啊？

追答

这是初值，需要先定义，不能放到时钟里
应该小于0时就向右边反弹

追问

public a,b
a=5
b=5
我这样改了下：
public a,b
a=0.6
b=0.8
怎么出不来啊？
这加a表示加a个什么啊？

追答

a=5和b=5是表示移动的速度，不能设为小于1的数。

追问

为什么不能设为小于1啊？我知道这是速度，速度有单位啊，你这表示米每秒，还是厘米每秒，还是格每秒啊？

追答

left或top最小单位都是1像素，不会移动比1像素还小的了