下面程序是程序启动,就执行动画程序.
Sub Form1_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
需求是
1 程序起动,Timer1.Interval = 5000 加截工作.
2 点击from1上的任意控件,Timer1.Interval = 5000功能不起作用.
如:
Private Sub SSTab1_Click(PreviousTab As Integer)
Timer1.Interval = 5000 --- 不工作,设为Nothing
End Sub
Sub Form1_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
需求是
1 程序起动,Timer1.Interval = 5000 加截工作.
2 点击from1上的任意控件,Timer1.Interval = 5000功能不起作用.
如:
Private Sub SSTab1_Click(PreviousTab As Integer)
Timer1.Interval = 5000 --- 不工作,设为Nothing
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货