代码写在自定义函数中,函数命名和控件text相同,控件命名要有自己的特征:比如万年历命名为“sys万年历”
窗口的全局时间代码:
If left(e.Sender.name,3) = “sys”
Functions.Execute(e.Sender.text),点击不同的控件,调用不同的函数
end if
动态添加和删除控件的代码我就不给您写了,自己研究,有问题再说!