在vb中如何设计一个电子滚动屏幕,使 欢迎使用 几个汉字在窗体中自左向右反复滚

发布网友 发布时间：2022-05-04 14:50

我来回答

共3个回答

热心网友 时间：2023-10-23 05:04

实现这个效果通过一个标签（标签属性：名称：label1，caption：欢迎使用！，高度自定）和一个计时器（计时器属性：名称：timer1，interval：1000）控件实现
代码如下：
private sub timer1_timer()
if label1.left>=form.width then
label1.left=0-label1.width
else
label1.left=label1.left+100
end if
end sub
只要通过按钮或者设置窗体控制计时器开始工作（即把timer1.enabled=true语句放入form_load或者command1_click过程中即可），就可以实现

热心网友 时间：2023-10-23 05:04

在窗体中建一个标签，Caption= “欢迎使用！"
再在窗体中加入一Timer控件。
Private Sub Form_Load()
Form1.Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If Form1.Label1.Left > Form1.Width Then
Form1.Label1.Left = 0
Else
Form1.Label1.Left = Form1.Label1.Left + 100
End If
End Sub

热心网友 时间：2023-10-23 05:05

用坐标实现

热心网友 时间：2023-10-23 05:04

实现这个效果通过一个标签（标签属性：名称：label1，caption：欢迎使用！，高度自定）和一个计时器（计时器属性：名称：timer1，interval：1000）控件实现
代码如下：
private sub timer1_timer()
if label1.left>=form.width then
label1.left=0-label1.width
else
label1.left=label1.left+100
end if
end sub
只要通过按钮或者设置窗体控制计时器开始工作（即把timer1.enabled=true语句放入form_load或者command1_click过程中即可），就可以实现

热心网友 时间：2023-10-23 05:04

在窗体中建一个标签，Caption= “欢迎使用！"
再在窗体中加入一Timer控件。
Private Sub Form_Load()
Form1.Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If Form1.Label1.Left > Form1.Width Then
Form1.Label1.Left = 0
Else
Form1.Label1.Left = Form1.Label1.Left + 100
End If
End Sub

热心网友 时间：2023-10-23 05:05

用坐标实现