VB怎么让标签不断的向左移动.用了timer 但只向左移动一遍就不见了,要重新运行.怎么让标签不断的向左移动
你给我代码吧 I am 菜鸟
VB怎么让标签不断的向左移动
答案:4 悬赏:20 手机版
解决时间 2021-01-30 03:59
- 提问者网友：那叫心脏的地方装的都是你
- 2021-01-29 10:35
最佳答案
- 五星知识达人网友：渊鱼
- 2021-01-29 11:35
if label1.left<0 then
label1.left=scalewidth
else
label1.left=label1.left-150
end if
label1.left=scalewidth
else
label1.left=label1.left-150
end if
全部回答
- 1楼网友：猎心人
- 2021-01-29 14:58
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If Label1.Left < 100 Then Label1.Left = Form1.Width - Label1.Width + 100
Label1.Left = Label1.Left - 100
End Sub
- 2楼网友：轻雾山林
- 2021-01-29 13:36
把这个代码放进去就可以了，记得加一个timer控件
Private Sub Timer1_Timer()
If Label10.Left + Label10.Width >= 0 Then
Label10.Left = Label10.Left - 20
Else: Label10.Left = Me.Width
End If
End Sub
- 3楼网友：过活
- 2021-01-29 13:01
label1.move label1.left + 50, label1.top if label1.left > form1.width then label1.left = 0 改为 label1.move label1.left - 50, label1.top if label1.left+label1.width <0 then label1.left = form1.width 即可
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯