怎么编程做一个商店前那种不断滚动的字幕的效果？
答案:1 悬赏:10
解决时间 2021-11-14 05:10
- 提问者网友：神仙爷爷
- 2021-11-14 00:24
怎么编程做一个商店前那种不断滚动的字幕的效果？
最佳答案
- 二级知识专家网友：单身小柠`猫♡
- 2021-11-14 00:57
Private Sub Timer1_Timer()
If Label1.Left < 4700 Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = 4700
End If
If Label1.ForeColor = &HFF0000 Then
Label1.ForeColor = &HFF&
Else
Label1.ForeColor = &HFF0000
End If
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Left = 150
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
End
End Sub
If Label1.Left < 4700 Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = 4700
End If
If Label1.ForeColor = &HFF0000 Then
Label1.ForeColor = &HFF&
Else
Label1.ForeColor = &HFF0000
End If
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Left = 150
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
End
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯