VB6文字活滚动 这段代码如何实现右边先进去的文字(部分) (部分) 从左边滚出来
2个回答
展开全部
先建立两个label1和label2(名字就用默认的名字,不必要改动),两者大小和位置一模一样,写上相同的文字(如“Hello,Kitty!)。
private sub timer1_timer()
label1.left+label1.width>me.scalewidth then
label2.left=label1.left
label1.left=-label1.width
end if
lebel1.left=lebel1.left+200
lebel2.left=lebel2.left+200
end sub
private sub timer1_timer()
label1.left+label1.width>me.scalewidth then
label2.left=label1.left
label1.left=-label1.width
end if
lebel1.left=lebel1.left+200
lebel2.left=lebel2.left+200
end sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询