VB等待一定时间怎么弄?
我是个新手,拜托大家把语句写下来,并标出哪里是等待的时间我是用Command做的,只要点击它,label就显示1~6随机的数字,我想让它像摇号一样随机显示数字,最后停在一...
我是个新手,拜托大家把语句写下来,并标出哪里是等待的时间
我是用Command做的,只要点击它,label就显示1~6随机的数字,我想让它像摇号一样随机显示数字,最后停在一个数上,我是想先让label随机显示一个1~6的数字,等待一下,再显示1~6的数字,这样重复,有没有快捷点的办法? 展开
我是用Command做的,只要点击它,label就显示1~6随机的数字,我想让它像摇号一样随机显示数字,最后停在一个数上,我是想先让label随机显示一个1~6的数字,等待一下,再显示1~6的数字,这样重复,有没有快捷点的办法? 展开
2个回答
展开全部
用TIMER控件。1个控件就可以达到你说的效果,
Option ExplicitDim k As Integer
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Randomize
k = Int(Rnd() * 6 + 1)
Label1.Caption = k
End Sub
Option ExplicitDim k As Integer
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Randomize
k = Int(Rnd() * 6 + 1)
Label1.Caption = k
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我有一个摇号的代码,现成的,需要的话HI我
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询