vb制作自左向右移动

软件 2024-05-15

VB如何实现让标签从左到右来回移动

Option Explicit Dim mMove As Long '定义一个标签移动步长变量Private Sub Form_Load() mMove = 100 '设置移动步长 End SubPrivate Sub Timer1_Timer() '判断Label是否到达左右边界， '如果标签的Left加上移动步长小于0，则认为标签达到左边界 '如果标签的Left加上移动步长大于窗体宽度减去标签自身宽度，则认为标签到达右边界 '标签如果达到左右边界，则对其移动步长反向。 If Label1.Left + mMove <= 0 Or Label1.Left + mMove >= Me.Widt

用vb编写一行文字从窗体左向右移动，用inputbox？

这样的程序只要使用一个标签控件，然后输入的文字，把它赋值为标签控件的显示，再加进一个定时器控件，每100毫秒就让标签控件的左边界+50。当标签控件的左边界值超过了窗体的宽度就恢复到零。

PrivateSubCommand1_Click()

Label1.Caption=InputBox("请输入一行文字：")

Label1.FontSize=16

Timer1.Interval=100

EndSub

PrivateSubTimer1_Timer()

Label1.Left=Label1.Left+50

IfLabel1.Left>Form1.WidthThenLabel1.Left=0

EndSub

vb中怎么向左或向右移动一段文字，

需要添加定时器Timer来实现代码及注释如下： private sub Form_load() timer1.interval=500'窗体出现时，定义定时器的出发间隔为0.5s timer1.enabled=true'定时器启动 end sub private sub timer1_time() label1.left=label1.left+100'label1的左边距离，每0.5s向右移动100，由于文字位于Label上，因此label移动，就会看到文字移动的效果 end sub

VB中如何编程让窗体在屏幕上左右来回移动

添加一个定时器，定时器移动，超过屏幕自动回来。

代码如下：

DimMAsInteger'定义变量，确定移动方向
PrivateSubForm_Load()
Timer1.Interval=200'移动时间0.2秒移一次
Me.Left=0'左空初始为0
M=0'默认先向右移
EndSub
PrivateSubTimer1_Timer()
If(Me.Left+Me.Width)>Screen.WidthThenM=1'移到右边头上，向右移
IfMe.Left<=0ThenM=0'移到左边头上了，向左移
IfM=0Then'移动方向
Me.Left=Me.Left+1000'向右移
Else
Me.Left=Me.Left-1000'向左移
EndIf
EndSub