请问在vb中如何做到文字从左往右移动,在最后一个字移出屏幕后,回到初始位置,再重新开始,请给出详细的算法~~~
(注:在平移过程中文字是类似于这样移动的:Label2(1).Left = Label2(1).Left + 1,Label2(2).Left = Label2(2).Left + 2这样移动的)
可能问题不太明确,我在声明一下
就是如果最后的一个字位置是 Label2(2).Left=150,那么我要当这个 Label2(2)跳出屏幕后,在回到它的起始位置,再重新开始一次移动~~
vb左右移动的问题
答案:2 悬赏:0
解决时间 2021-11-28 23:35
- 提问者网友:清茶柒夏
- 2021-11-28 15:18
最佳答案
- 二级知识专家网友:统治我的世界
- 2021-11-28 16:15
Private Sub Timer1_Timer()
Label2(1).Left = Label2(1).Left + 1
If Label2(1).Left > Me.Width Then
Label2(1).Left = -Label2(1).Width
End If
Label2(2).Left = Label2(2).Left + 2
If Label2(2).Left > Me.Width Then
Label2(2).Left = -Label2(2).Width '这里赋给Label2(2).Left的位置,你可以改成你想要的,我这里写的是Label2(2)在窗体左边外边
End If
End Sub
'注意,一个像素在VB里为15
Label2(1).Left = Label2(1).Left + 1
If Label2(1).Left > Me.Width Then
Label2(1).Left = -Label2(1).Width
End If
Label2(2).Left = Label2(2).Left + 2
If Label2(2).Left > Me.Width Then
Label2(2).Left = -Label2(2).Width '这里赋给Label2(2).Left的位置,你可以改成你想要的,我这里写的是Label2(2)在窗体左边外边
End If
End Sub
'注意,一个像素在VB里为15
全部回答
- 1楼网友:社会水太深
- 2021-11-28 17:12
比如有3个按钮,1,2,3,3在1,2之间。
取得1按钮的右边位置,left属性+width属性,2按钮的左位置,就是left属性。
再定位3的left就可以了。
dim a
private sub command2_click()
timer1.enabled = true
end sub
private sub form_click()
timer1.enabled = false
end sub
private sub form_load()
timer1.interval = 100
a = 20
end sub
private sub timer1_timer()
if command3.left < command1.left + command1.width then a = 20
if command3.left + command3.width > command2.left then a = -20
command3.left = command3.left + a
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯