
已解决问题
谷歌马甲线_654用户在2020.02.23提交了关于“直播vb timer控件的用法”的提问,欢迎大家涌跃发表自己的观点。目前共有1个回答,最后更新于2025-02-14T21:14:06。一个简单的抽奖程序,**生3个0~9的随机数,文本框中显示中奖号码,我写的代码如下:
PrivateSubCommand1_Click()
Timer1.Enabled=True
Command2.Enabled=True
Command1.Enabled=False
Command3.Enabled=False
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
Text2.Text=Label2(0).Caption&Label2(1).Caption&Label2(2).Caption
Command1.Enabled=True
Command2.Enabled=False
Command3.Enabled=True
EndSub
PrivateSubCommand3_Click()
End
EndSub
PrivateSubTimer1_Timer()
Randomize
Label2(0).Caption=Int(Rnd*10+0)
Label2(1).Caption=Int(Rnd*10+0)
Label2(2).Caption=Int(Rnd*10+0)
EndSub
运行后无报错,但label和text中无显示,为什么?
详细问题描述及疑问:
一个简单的抽奖程序,**生3个0~9的随机数,文本框中显示中奖号码,我写的代码如下:
PrivateSubCommand1_Click()
Timer1.Enabled=True
Command2.Enabled=True
Command1.Enabled=False
Command3.Enabled=False
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
Text2.Text=Label2(0).Caption&Label2(1).Caption&Label2(2).Caption
Command1.Enabled=True
Command2.Enabled=False
Command3.Enabled=True
EndSub
PrivateSubCommand3_Click()
End
EndSub
PrivateSubTimer1_Timer()
Randomize
Label2(0).Caption=Int(Rnd*10+0)
Label2(1).Caption=Int(Rnd*10+0)
Label2(2).Caption=Int(Rnd*10+0)
EndSub
运行后无报错,但label和text中无显示,为什么?