老师 好不知道为什么，使用窗口定时器，程序运行正常，把窗口定时器的内容搬迁到系统定时器就报错，帮看看问题所在，谢谢
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
加好友 
发短信
Post By：2021/9/6 16:43:00 [显示全部帖子]
