比较麻烦,做一个计划管理,输入代码
http://www.foxtable.com/help/topics/0657.htm
Dim frm = Windows.Forms.Form.ActiveFormIf frm IsNot Nothing Then If frm.Name = "Class185" Then MyTimers("计划1").Enabled = False frm.controls(vars("btn")).performClick End IfEnd If
然后调用按钮的代码这样写
vars("btn") = "btnGroup"'vars("btn") = "btnRose"MyTimers("计划1").Enabled = TrueSyscmd.Project.Users()