Private Sub Command1_Click()
If Command1.Caption = "&S开始" Then
Command1.Caption = "&E暂停"
Timer1.Enabled = True
ElseIf Command1.Caption = "&E暂停" Then
Command1.Caption = "&S开始"
Timer1.Enabled = False
End If
Select Case True
Case Option1.Value
Label1.FontName = "宋体"
Case Option2.Value
Label1.FontName = "楷体_GB2312"
Case Option3.Value
Label1.FontName = "黑体"
End Select
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Form_Load()
Me.Caption = "滚动字幕板"
Option1.Caption = "宋体"
Option2.Caption = "楷体"
Option3.Caption = "黑体"
Command1.Caption = "&S开始"
Timer1.Interval = 5
Timer1.Enabled = False
Label1.Caption = "黄申元"
Label1.AutoSize = True
Label1.FontSize = 25
Label1.BackColor = RGB(0, 0, 0): Label1.ForeColor = RGB(255, 255, 255)
Label1.Left = 0
Label1.Top = (Me.ScaleHeight - Label1.Height) / 2
End Sub

Private Sub Timer1_Timer()
If Label1.Left + Label1.Top > 0 Then
Label1.Move Label1.Left - 20
Else
Label1.Left = Form1.ScaleWidth
End If
End Sub
为什么 不能 暂停 ？ 谢谢

Command_Click最后多了一句Time1.Enabled = True

嗯,去掉Timer1.Enabled = True

去掉Timer1.Enabled = True 也不行

Label1.Move Label1.Left - 20 向左循环运行
将上面代码改成Label1.Move Label1.Left + 20 向右运行，怎么不循环？

End Select
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
将上面的代码改成下面的就可以了
End Select
Timer1.Interval = 1
End Sub

你没发烧吧??

你说去掉这个不行,最后一帖又说,那不也是去掉那个吗??:

End Select
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
将上面的代码改成下面的就可以了
End Select
Timer1.Interval = 1
End Sub

技术区问问题还开马甲 服了

怎么这么说?...

楼主的ID到后面不就变了嘛。。。