在VB编程中 如何让字体一直滚动

2025-01-02 14:41:48
推荐回答(2个)
回答1:

做一个label标签,添加一个timer控件。设置好timer控件的时间间隔为50,在timer事件里面添加如下代码,标签滚动到了最后会从最开始的地方开始滚动

label1.left=label1.left+10
if label1.left>form1.width then
label1.left=0
end if

回答2:

用一个timer控件和一个label控件
代码可以这样写,
Private Sub Timer1_Timer()
If Label2.Left + Label2.Width <= 0 Then
Label2.Left = Label2.Width
Else
Label2.Left = Label2.Left - 1
End If
end sub
这个是走一圈又一圈!不停在走!