怎么实现数字变化的动态效果！

正在做一个抽奖的程序

在当中有一个数字变化的效果

具体怎么实现，有做过的吗？

我用下面的语句实现不了

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

6 个解决方案

#1

在学VB
有好多不懂，知道的帮个忙哈

#2

Private Sub Timer1_Timer()
  i=i+1
    Form1.Text1.Text =i
  if i=10 then
   i=0
end if

End Sub
这样是由一加到10 给你举个列子

#3

Form1.Text1.Text = i

这个不是在Text1上显示了吗？

应该会显示才对呀

可是，最后只显示一个

没有那动变化效果

#4

刚刚那位老兄忘了给你写一段代码。
Private Sub Timer1_Timer()
  static i as integer '加上这句。声明一个静态变量
  i=i+1
    Form1.Text1.Text =i
  if i=10 then
   i=0
end if

End Sub

#5

那个i要声明称窗体级变量才行

#6

不好意思
正如楼上说的你声明i为一个变量
个人感觉还是在声明上面定义这个i变量好一点

我大意了

#1