中易网

vb左右移动的问题

答案:2  悬赏:0  
解决时间 2021-11-28 23:35
请问在vb中如何做到文字从左往右移动,在最后一个字移出屏幕后,回到初始位置,再重新开始,请给出详细的算法~~~
(注:在平移过程中文字是类似于这样移动的:Label2(1).Left = Label2(1).Left + 1,Label2(2).Left = Label2(2).Left + 2这样移动的)

可能问题不太明确,我在声明一下
就是如果最后的一个字位置是 Label2(2).Left=150,那么我要当这个 Label2(2)跳出屏幕后,在回到它的起始位置,再重新开始一次移动~~
最佳答案
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
全部回答
比如有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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
杨幂隆胸?
北京沙发翻新换皮面有哪些专业公司?
爱情可以单纯没有伤害吗?
一进门看见什么最好原来玄关挂画这么重要
扣角歌的意思是什么啊?请解释下!
有部小说主角在火灾中救了人被火毁容后误会女
我买了一个登喜米兰的女式包,如何在网上查该
请问nba的近十年的选秀状元?
吃大户的意思是什么?吃大户的释义是什么啊?
如何诱捕步甲
韵达快递可不可以到达江苏省 苏州市 虎丘区
紅魚的意思是什么?紅魚的释义是什么啊?
羊年春晚细哥细妹会出现吗
我最近想注册商标,可发现与一个刚撤销的注册
江苏省水利工程设计概(估)算编制规定(2010
推荐资讯
电气自动化设备安装与维修属电气专业类吗
史无前例的意思是______________________
謀年的意思是什么?謀年的释义是什么啊?
消防建审是指什么?需要什么流程?
阜繁的意思是什么啊?请解释下!
柞栎的意思是什么啊?请解释下!
在哪能买到剪纸专用的宣纸?(少量的)
宝宝被烫伤怎么办?
倩女幽魂前世差3000评分怎么弄,孔该开也都开
精密电阻器和普通电阻有什么区别
天眼开的意思是什么?天眼开的释义是什么啊?
成都阁楼伸缩楼梯价格高不高?
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?