关于Button的小小小问题！请各位帮忙看一下~~T_T

[lulu1008]

要求设计一个小游戏类似老虎机之类的，3个数字滚动，停止，有3个一样的就得奖之类的…… 汗

其中有一条要求
按下button1之后，数字开始滚动，button在三秒钟之内失效
Button1.Enabled = False
3秒之后 数字停止滚动 Button又能按了

这个应该怎么编呢…
（有提示用Timer）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Button1.Enabled = False

CurrentTime = Format(TimeValue(Now), "")
我只写到这里了…

学VB才一个月，所以想请各位大虾帮忙一下，伸出援手，小女子感激不尽~~~

PS.因为刚入门，学得很浅，所以最好是简单的，谢谢，谢谢，谢谢~~~

[caofusheng]

在C#区好像见过此帖子

[Lost_Love_Anymore]

数字显示按楼主的说法，应该采用随机数。显示三个数字。
If t = 6 Then
t = 0
a = 0
Button5.Enabled = True
Timer1.Enabled = False
'Todo
'是否数字一样的判断。
End If

[hzybc]

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Button5.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 500 '显示123用，每半秒换一次
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static a, t As Int16
a = a + 1
t = t + 1
If a = 4 Then a = 1
Label1.Text = a
If t = 6 Then
t = 0
a = 0
Button5.Enabled = True
Timer1.Enabled = False
End If
End Sub

[zy227]

楼上的good 可以用 顶

[云中客]

如
2楼所言，利用Timer控件来实现

[lulu1008]

试了3楼的回复~真的可以用

非常感谢啊

不过不知道为什么数字滚动的比原先慢了

有办法变快一点么

[lulu1008]

还有If a = 4 Then a = 1
Label1.Text = a
If t = 6 Then
这一段

Label1.Text是什么？