怎么实现数字变化的动态效果!
咏帆 2005-07-05 04:27:29 正在做一个抽奖的程序
在当中有一个数字变化的效果
具体怎么实现,有做过的吗?
我用下面的语句实现不了
Private Sub Timer1_Timer()
If MyNum = 1 Then
For i = 1 To 1000000
Form1.Text1.Text = i
Next i
Else
For i = MyNum To 1000000
Form1.Text1.Text = i
Next i
End If
End Sub
‘1000000只是一个代替的数字
'Timer1.Interval=1000