VB怎么让标签不断的向左移动

答案:4 悬赏:20 手机版

解决时间 2021-01-30 03:59

提问者网友：那叫心脏的地方装的都是你
2021-01-29 10:35

VB怎么让标签不断的向左移动.用了timer 但只向左移动一遍就不见了,要重新运行.怎么让标签不断的向左移动

你给我代码吧 I am 菜鸟

最佳答案

五星知识达人网友：渊鱼
2021-01-29 11:35

if label1.left<0 then
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 即可

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息