VB如何使用timer控件?
我设定120分钟后运行一个动作,让家里的电脑自动关机,而timer最多Intervel只有60000属性,到不了30分钟.那我怎么写程序呢?PrivateSubTimer...
我设定120分钟后运行一个动作,让家里的电脑自动关机,而timer最多Intervel只有60000属性,到不了30分钟.
那我怎么写程序呢?
Private Sub Timer1_Timer()
shell "c:\shutdown.exe"
End Sub 展开
那我怎么写程序呢?
Private Sub Timer1_Timer()
shell "c:\shutdown.exe"
End Sub 展开
4个回答
展开全部
'添加一个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
并将其做成控件数组(下标分别为: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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设置一个静态变量如:将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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设置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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是为了解决问题就没必要有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由你自己填
Private Sub Load()
dim t!
t=text1.text;
if t=3:00
then shell "c:\shutdown.exe";
end if
end sub
上面的3:00由你自己填
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询