Question

VB如何使用timer控件?

我设定120分钟后运行一个动作,让家里的电脑自动关机,而timer最多Intervel只有60000属性,到不了30分钟.
那我怎么写程序呢?

Private Sub Timer1_Timer()

shell "c:\shutdown.exe"

End Sub

Answer 1

'添加一个image控件
并将其做成控件数组（下标分别为：0
1
2）
一个timer控件
设置interval=100
示例代码如下：
private
sub
form_load()
for
i
=
1
to
2
image1(i).left
=
image1(0).left
image1(i).top
=
image1(0).top
next
i
end
sub
private
sub
timer1_timer()
static
index
as
integer
image1(index).zorder
0
index
=
index
+
1
if
index
>
2
then
index
=
0
end
sub

Answer 2

设置一个静态变量如：将Timer1的Intervel设置为1000
Private Sub Timer1_Timer()
static t as long

if t>120*60 then
shell "c:\shutdown.exe"
timer1.enabled=false
else
t=t+1
end if

End Sub

Answer 3

设置60000运行一次闹钟，也就是1分钟。
Private Sub Load() '这是初始化函数，名字不太记得
Dim i
i=0
End Sub
Private Sub Timer1_Timer()
i=i+1
if i=120 then '一分钟运行一次，于是第120分钟会执行关机。
shell "c:\shutdown.exe"
end if
End Sub

Answer 4

如果是为了解决问题就没必要有TIMER控件，你直接用text控件就行，只要在里面输入关机的时间就行了
Private Sub Load()
dim t!
t=text1.text;
if t=3:00
then shell "c:\shutdown.exe";
end if
end sub
上面的3：00由你自己填