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

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

 我来答

1个回答

#热议# 为什么说不要把裤子提到肚脐眼？

wwww0528
推荐于2016-09-06 · TA获得超过587个赞

知道小有建树答主

回答量：558

采纳率：72%

帮助的人：125万

我也去答题访问个人页

关注

展开全部

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

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

timer1.enable=false
label1.left=100

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

计时器控件timer1的代码

：雨滴计算。