高考问答泛海待遇怎么样?:vb小问题,如何让text里的内容动起来?
来源：百度文库 编辑：高考问答 时间：2024/05/05 16:03:51
比如这个:
Dim i
For i = 1 To 1000
Text1.Text = i
Next
如何做到让我看见1到1000 这个一直变化的过程?
就是说Text1.Text里的内容从1一直变到1000而不是在内部计算,最后直接显示一个1000?
Dim i
Private Sub Command1_Click()
For i = i To 1000
Next
End Sub
Sub Timer1_Timer()
Label2.Caption = i
End Sub
按第一个回答,这么写了一下..但是达不到效果..
Dim i
For i = 1 To 1000
Text1.Text = i
Next
如何做到让我看见1到1000 这个一直变化的过程?
就是说Text1.Text里的内容从1一直变到1000而不是在内部计算,最后直接显示一个1000?
Dim i
Private Sub Command1_Click()
For i = i To 1000
Next
End Sub
Sub Timer1_Timer()
Label2.Caption = i
End Sub
按第一个回答,这么写了一下..但是达不到效果..
拖一个timer，一个text
Private Sub Form_Load()
Timer1.Interval = 10
Text1.Text = 0
End Sub
Sub Timer1_Timer()
If Val(Text1.Text) < 1000 Then Text1.Text = Val(Text1.Text) + 1
End Sub
搞定～
使用Timer控件，改interval的值为你要的变换时间，格式为豪秒
然后在timer的timer事件中写你的判断。。。
他在你设定的时间内自动执行~~~~
Dim i
For i = 1 To 1000
Text1.Text = i
Next
是因为没有时间控制
CPU运行太快了，你没有感觉到动而已
添加一个Timer就好了
timer.interval=100000000
这个值大些，变化就慢些。