VB制作自动滚动字幕窗体

答案:1 悬赏:60 手机版

解决时间 2021-02-24 09:35

提问者网友：放下
2021-02-23 15:20

单击“开始”按钮，字幕自动从右至左滚动，当字幕从左面完全消失后，再从右边界自动出现，继续滚动，字体颜色随机变化，且“开始”按钮切换成“停止”按钮。单击“停止”按钮，字幕停止滚动，且按钮切换成“开始”按钮。

最佳答案

五星知识达人网友：舊物识亽
2021-02-23 16:25

Dim a Const s = "你好，欢迎你！！" Private Sub Command1_Click() Cls If Command1.Caption = "停止" Then Timer1.Enabled = False Command1.Caption = "开始" Else Timer1.Enabled = True Command1.Caption = "停止" a = Me.ScaleWidth End If End Sub Private Sub Form_Load() Command1.Caption = "开始" Timer1.Interval = 200 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Cls a = a - 100 If a + TextWidth(s) < 0 Then a = Me.ScaleWidth CurrentX = a CurrentY = 500 Me.ForeColor = QBColor(Int(Rnd * 15)) Print s End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息