Option Explicit
Dim i As Long, j As Long '全局变量
Dim s1 As String, s2 As String
Private Sub Timer1_Timer()
Picture1.Cls
If s1 = "" Then
s1 = Int(Rnd * 9 + 1)
End If
If s2 = "" Then
s2 = Int(Rnd * 9 + 1)
End If
i = i + 150 '速度控制
Picture1.CurrentX = 3000
Picture1.CurrentY = i
Picture1.Print s1
Picture1.CurrentX = 3000
Picture1.CurrentY = i - 1500
Picture1.Print s2
If i > 1500 Then
i = i - 1500
s1 = s2
s2 = ""
End If
End Sub
09年11月为论坛里一个提问写的一段程序,你参考一下吧。
Picture1 高 1455 ,
Picture1 的字体大小为:72
Timer1 的定时设置为 100 。
这个程序是演示一个数字滚动的情况。
不加修改时,适用于 数字整体滚动情况。 如 手机号码抽奖。 固定号码抽奖。