sub form1_load()
with timer1
.interval=1000
.enabled=true
end with
end subsub timer1_timer()
static minutes as byte
if minutes=7200 then 'two minutes
minutes=0
msgbox "Hello!"
else
minutes=minutes+1
endif
end sub
with timer1
.interval=1000
.enabled=true
end with
end subsub timer1_timer()
static minutes as byte
if minutes=7200 then 'two minutes
minutes=0
msgbox "Hello!"
else
minutes=minutes+1
endif
end sub
直接用 api会好点。
http://www.banasoft.com/DownLoad/BNTimer.exe
对不起,好像像"sub form1_load()"之类的中的form1是不成立的.应该把"form1"改为"form"!