VB怎样将文字从右到组滚动，文字出窗体后还会从右到左滚动的代码？谢谢
答案:2 悬赏:0
解决时间 2021-01-18 09:22
- 提问者网友：且恨且铭记
- 2021-01-18 01:33
VB怎样将文字从右到组滚动，文字出窗体后还会从右到左滚动的代码？谢谢
最佳答案
- 二级知识专家网友：山君与见山
- 2021-01-18 02:23
你把要滚动的文字写在一个label里面，在加一个timer
Private Sub form_load()
Timer1.Interval = 100
End Sub
Private Sub form_click()
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
If Label1.Left + Label1.Width < 0 Then Label1.Left = Form1.ScaleWidth
Label1.Left = Label1.Left - 100
End Sub
Private Sub form_load()
Timer1.Interval = 100
End Sub
Private Sub form_click()
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
If Label1.Left + Label1.Width < 0 Then Label1.Left = Form1.ScaleWidth
Label1.Left = Label1.Left - 100
End Sub
全部回答
- 1楼网友：舍身薄凉客
- 2021-01-18 03:14
添加一个标签(label1)，和一个计时器（timer1）
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width < 0 Then
Label1.Left = Form1.ScaleWidth
Else
Label1.Left = Label1.Left - 10
End If
End Sub
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width < 0 Then
Label1.Left = Form1.ScaleWidth
Else
Label1.Left = Label1.Left - 10
End If
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯