vb timer控件的用法

时间:2020.02.23 发布人:马甲线_654

vb timer控件的用法

已解决问题

谷歌马甲线_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中无显示,为什么?

期待您的答案,你是我的宝贝,你是我的花,谢谢你对我的帮助!
希望以下的回答,能够帮助你。

第1个回答

用户名:朱秉红  

你timer控件的interval属性值有没有设置?如果没有设置是不会运行timer控件内代码的