7.2宠物升级:关于vb程序

来源：百度文库 编辑：神马品牌网 时间：2024/10/03 06:38:51
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim m As Integer
m = Int(Rnd * 3)
Select Case m
Case Is = 0: Label1.FontName = "楷体_gb2312"
Case Is = 1: Label1.FontName = "宋体"
Case Is = 2: Label1.FontName = "隶书"
End Select
Label1.ForeColor = Rnd * &HFFFFFF
Label1.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub
我的开始 怎么不管啊 怎么自动运行

有没有设置定时器的Interval属性值啊！
没有的话在
Form_Load()事件里写是下面这句

Timer1.Interval = 1000

关于vb程序 关于VB安装程序 关于VB的安装程序 关于VB程序界面美化 关于vb写程序问题 关于VB 扫描仪程序 求助 关于VB编程序的问题 VB程序，关于EXCEL文件的操作 一个关于VB程序的问题 关于vb.net的一道程序题