vb定时器启动工作的条件是什么

vb定时器启动工作的条件是Enabled和Interval。若希望窗体一加载定时器就开始工作，应将Enabled属性设置为True。否则，保持此属性为False。Interval是计时器最重要的属性，用于设置计时器事件之间的时间间隔，取值在0~65767（ms）之间。如果设置为0，则表示计时器无效。

窗体加一个timer控件,interval属性设为60000(1分钟),代码区写以下代码 Dim count As Integer '用来记数,全局变量 Private Sub Timer1_Timer()
If count = 30 Then
'你要执行的语句
count = 0
Else
count = count + 1
End If
End Sub

代码手动输的，可能会有某些编译错误，自己小修改下就OK了。
需要两个按钮，一个标签。
option explicit
dim uTimer as new Timer
dim i&
private sub utimer_timer()
utimerinterval=1000
i=i+1
end sub
private sub form_load()
command1caption="开始计时"
command2caption="停止计时"
lable1caption="计时:" & i &"s"
end sub
private sub command1_click()
utimerenable=1
end sub
private sub command2_click()
utimerenable=0
end sub
====================
顺便送一个程序给LZ参考。
需要两按钮 一标签。
option explicit
dim uTimer as new timer
private sub form_load()
command1caption="开始计时"
command2caption="停止计时"
lable1caption="计时："& " s"
utimerinterval=1000
end sub
private sub command1_click()
utimerenable=1
end sub
private sub command2_click()
utimerenable=0
end sub
private sub utimer_timer()
lable1caption="计时：" & time
end sub

不错，windows自带的计划任务完全能满足你的要求了，如果你确实想自己设计的话：
两个文本框text1,text2,
text1填时间，text2填运行程序的路径+运行程序文件名
一个按钮command1，确认
一个时间控件timer1,Interval设为60000，精确程度接近1分钟
在Private Sub Timer1_Timer()里面添加代码，判断当前时间（用time函数取得当前时间）是否到了你设定的时间，到了就shell text2text没到就不理会，程序开始时在form_load()时可以设置timer1enabled=false,在command1_click()里面设置timer1enabled=true,这样在设置好text1和text2的内容后，点击command1按钮程序就开始运行了。详细代码自己写哈。说得够清楚了我觉得。最好加上容错处理代码

VB中的Timer控件使用：

Timer
控件响应时间的流逝。它们独立于用户，编程后可用来在一定的时间间隔执行 *** 作。此控件的一个一般用处是检查系统时钟，判断是否该执行某项任务。对于其它后台处理，
Timer 控件也非常有用。

每个 Timer 控件都有 Interval
属性，指定定时器事件之间的毫秒数。除非禁止此属性，否则定时器在大致相等的时间间隔不断接受事件（称作定时器事件会更贴切）。

在为 Timer 控件编程时应考虑对 Interval 属性的几条限制：

1如果应用程序或其它应用程序正在进行对系统要求很高的 *** 作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比
Interval 属性指定的间隔长。

2间隔的取值可在 0 到 64,767 之间（包括这两个数值），这意味着即使是最长的间隔也不比一分钟长多少（大约 648 秒）。

3间隔并不一定十分准确。要保证间隔准确，应在需要时才让定时器检查系统时钟，而不在内部追踪积聚的时间。

4系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性，间隔实际的精确度不会超过 18 分之一秒。

每个 Timer 控件必须要与窗体关联。因此要创建定时器应用程序就必须至少创建一个窗体（如果不需要窗体完成其它 *** 作就不必使窗体可见）。

注意 在 Visual Basic 中，单词 "timer" 有好几种用法，每种都与 Timer
控件的工作有关。除了控件名和控件类型以外，"timer" 还用在定时器事件和定时器函数中。

以下是一个报警器的具体代码设计过程：

在窗体上放置 Timer 控件

在窗体上放置 Timer 控件的方法与绘制其它控件的方法相同：单击工具箱中的定时器按钮并将它拖动到窗体上。

Timer 控件只在设计时出现在窗体上，所以可以选定这个控件，查看属性，编写事件过程。运行时，定时器不可见，所以其位置和大小无关紧要。

初始化 Timer 控件

Timer 控件有两个关键属性。

Option Explicit

  Dim AlarmTime

  Const conMinimized = 1

Private Sub Form_Click()

  AlarmTime = InputBox("输入启动闹钟的时间", "VB 闹钟", AlarmTime)

  If AlarmTime = "" Then Exit Sub

  If Not IsDate(AlarmTime) Then

      MsgBox "您输入的时间无效。"

  Else                                    ' 从 InputBox 返回的字符串使有效时间,

      AlarmTime = CDate(AlarmTime)        ' 将它作为一个日期/时间值存储在AlarmTime 中。

  End If

End Sub

Private Sub Form_Load()

  AlarmTime = ""

End Sub

Private Sub Form_Resize()

  If WindowState = conMinimized Then      ' 如果窗体被最小化, 在标题处显示时间。

      SetCaptionTime

  Else

      Caption = "闹钟"

  End If

End Sub

Private Sub SetCaptionTime()

  Caption = Format(Time, "Medium Time")   ' 使用中等时间格式显示时间。

End Sub

Private Sub Timer1_Timer()

  Static AlarmSounded As Integer

  If lblTimeCaption <> CStr(Time) Then

      ' 当前秒数与显示秒数不同。

      If Time >= AlarmTime And Not AlarmSounded Then

          Beep

          MsgBox "启动闹钟在 " & Time

          AlarmSounded = True

      ElseIf Time < AlarmTime Then

          AlarmSounded = False

      End If

      If WindowState = conMinimized Then

          ' 如果处于最小化状态, 每分钟都需更新窗体标题。

          If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime

      Else

          ' 否则每秒钟对标签的标题进行更新。

          lblTimeCaption = Time

      End If

  End If

End Sub

---