请问VB实现每隔几秒就换一条文字的方法？

Question

以下是我用的代码，但不能动？有没有更好的？

Sub Code1()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code2()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code3()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code4()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code5()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code6()
Label3.Caption = "txt文字文字文字文字文字"
End Sub
Sub Code7()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code8()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code9()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Code10()
Label3.Caption = "txt文字文字文字文字文字"
End Sub

Sub Usage()
Randomize
Dim i As Integer
i = Int(Rnd() * 10 + 1)
Select Case i
Case 1: Call Code1
Case 2: Call Code2
Case 3: Call Code3
Case 4: Call Code4
Case 5: Call Code5
Case 6: Call Code6
Case 7: Call Code7
Case 8: Call Code8
Case 9: Call Code9
Case 10: Call Code10
End Select
End Sub

Answer 1

你加个 timer 时间控件，设置它的 Interval 属性为 1000，当然也可以设为其它的值，1000就是1秒钟

然后双击这个 timer 控件，在它的代码块中写上 call Usage()

试试~~~

Answer 2

timer

Answer 3

dim str(6)

在form1里面写上一下代码:

str(0)="txt文字文字文字文字文字"
str(1)="txt文字文字文字文字文字"
str(2)="txt文字文字文字文字文字"
str(3)="txt文字文字文字文字文字"
str(4)="txt文字文字文字文字文字"
str(5)="txt文字文字文字文字文字"
str(6)="txt文字文字文字文字文字"
timer1.time=5000 '1000为1秒

在timer1控件中的代码如下
randomize
label3.caption=str(int(rnd(7)))

电脑没装VB写出来的代码有点怪

Answer 4

用timer 然后设置你的label 的可见属性就可以