VB等待一定时间怎么弄?
发布网友
发布时间:2024-10-15 15:18
我来回答
共2个回答
热心网友
时间:2024-10-15 17:55
我有一个摇号的代码,现成的,需要的话HI我
热心网友
时间:2024-10-15 17:51
用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