老师 好不知道为什么,使用窗口定时器,程序运行正常,把窗口定时器的内容搬迁到系统定时器就报错,帮看看问题所在,谢谢
Timertick:
Functions.Execute("发生多路计时器定时方波")
内部函数"发生多路计时器定时方波":
Dim t As Table = Forms("主窗口").controls("Table-多路计时器").Table
For Each r As Row In t.Rows
r("定时方波") = not r("定时方波")
Next
全局代码
Public Sub myTimer_Elapsed(sender As object, e As System.Timers.ElapsedEventArgs)
Functions.Execute("发生多路计时器定时方波")
End Sub
定义系统定时器的三个按键:
init+start:
Dim myTimer As new System.Timers.Timer(e.Form.controls("NCBox-刷频").value)'定时周期2秒
addhandler myTimer.Elapsed, addressof myTimer_Elapsed
myTimer.AutoReset = True
myTimer.Enabled = True
vars("mytimer") = myTimer
start:
vars("mytimer").Enabled = True
stop:
vars("mytimer").Enabled = False