Question

vb程序设计试题:设计一个背单词的界面，读单词是以滚动字幕的形式让单词出来，这一步如何写代码？

Answer 1

使用控件 Timer1 Label1,label2,label3
Private num As Long '用来变换单词用的
Private word() As Variant '单词存放的数组

Private Sub Form_Load()
word() = Array("hello", "world", "I am ", "Visusl", "basic") '这里有一个五个单词的数组
Label1.AutoSize = True '自动调整大小
Timer1.Interval = 100 '调节速度用的
Label1.Caption = word(0) '初始化单词
'字符挨个渐隐效果
With Label2
.Width = Label1.Width
.Height = Label1.Height
.Caption = ""
.Left = 5000
.Top = Label1.Top
End With
With Label3
.Width = Label1.Width
.Height = Label1.Height
.Caption = ""
.Left = 500
.Top = Label1.Top
End With
End Sub

Private Sub Timer1_Timer()

'向左移动
If Label1.Left > 500 Then '这里是规定左边界
Label1.Left = Label1.Left - 100 '每次移动100TWip 可以调节
Else
Label1.Left = 5000 '超过左边界后还原位置
num = num + 1 '同时数组的变量+1 起到更改单词的作用
If num = UBound(word) + 1 Then num = 0 '如果单词全部滚动完毕,则重新开始
Label1.Caption = word(num) '更换单词
'根据不同长度的单词来实现隐藏效果
Label2.Width = Label1.Width
Label3.Width = Label1.Width
End If
End Sub

Answer 2

滚动字幕可以利用timer控件，每过一段时间让label左移或者右移，就有看似滚动的效果了

追问

我知道利用Timer但是每次Label中都出来相同的单词，他不是一个单词一个单词的滚动，很是让我迷惑，望高手继续深入指点迷津，非常感谢！

追答

有个烂办法，你用两个label，分别装一个单词，设置只能看到一个label的宽度，移动，当label1完全看不到的时候，label1装入新单词，label2内容不变，继续移动，label1接在label2的后面滚动出现，label2看不到的时候装入新的单词，两个label循环移动，轮流装入新单词，烂方法一个，凑合看吧

追问

怎样把下一个单词再读出来呢，就是读文件这一块的知识不大会，希望你能写几句代码再讲明白一点，拜托了

追答

你的单词哪来的啊？

追问

我的单词存在两个记事本里面，写代码时需利用读文件的形式打开，麻烦你再帮我写写吧，太感谢你了！