VB Timer反复显示窗体

显示全部楼层 · 2009-7-3 19:57:42

'先设置Timer1.Interval = 1000 '1秒Private Sub Timer1_Timer()static i as integeri=i+1if i >=600 then '600秒,这个数和Interval 对应就行form1.showform2.showi=0endif end sub...

千问 · 2009-7-3 19:57:42

Option ExplicitDim i%Private Sub Form_Load()Form2.Hidei = 1Timer1.Interval = 600000End SubPrivate Sub Timer1_Timer()If i = 1 ThenForm1.HideForm2.Showi = 2...

千问 · 2009-7-3 19:57:42

能讲得清楚一点吗？是不是先设置Timer1的Interval属性为10000，然后在Timer1的Timer事件中写入：form1.showform2.show...

千问 · 2009-7-3 19:57:42

设置Timer1的Interval值为6000,也就是6秒
6S的100倍就是10分钟
Private Sub Timer1_Timer()
Dim n As Integer, a As Integer
a=0
n= n+1
If n mod 100 ...