Question

VB程序设计中如何让字幕滚动起来

Private Sub Timer1_Timer()
If Option10.Value = Ture Then
Text1.Left = Text1.Left - 50
If Text1.Left < 100 Then Text1.Left = Text1.Width
Else
Text1.Left = Text1.Left + 50
If Text1.Left > Text1.Width Then Text1.Left = 0
End If
End Sub
这是我自己编的，结果是整个TEXT滚动，而不是text里面的字滚动，请问如何修改





Answer 1

方法如下：

1. 添加一个Label标签，并设置背景为透明，放置于窗体最右边，用于显示字幕；

2. 添加一个Timer控件，间隔属性自行设置，用于制作滚动效果；

3. 在Timer事件中，添加代码，使Label标签的left属性，每次减少100，当小于0时，回到初始值。

   这样，就制作出了字幕滚动效果。

Answer 2

你应该换成标签控件，控件背景设为透明。这样移动标签就像是移动文字一样。
如果在文本框里移动文字那就要不断填充空格或丢掉空格，这一格一格的移动不好看，用标签控件吧，把它放在图片框容器中。

追问

老师规定要用文本框，能否变成透明的？

追答

这个文本框不能透明，不过 Microsoft Forms 2.0 Object Library控件组中有个文本框能透明，而且边框也可以取消。
不过我想老师是要你填充空格符的方式来达到移到文字的效果。