Question

vb程序标签运行时,单击"移动",label每隔1秒向右移动100,单击"停止"label停止移动并退回到左边距100的位置

带有边框的标签label,其高度400,宽度400,左边距100;然后再添加两个标题分别为"移动","停止"的命令按钮Command1和command2;最后添加一个计时器控件timer1.其事件间隔时间为1秒,计时器处于非激活状态.运行时,单击"移动",label每隔1秒向右移动100,单击"停止",label停止移动并退回到左边距100的位置.

Answer 1

dim x,y as double
单击"移动",按钮中的代码：
timer1.enable=true

单击"移动",按钮中的代码：
单击"停止"按钮中的代码：

timer1.enable=false
label1.left=100

单击"停止"按钮中的代码：
计时器控件timer1的代码,在属性窗口中设置间隔：1000
label1.left=label1.left +100

计时器控件timer1的代码

：雨滴计算。