- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口内有两个按钮怎么实现自动交替触发，再帮忙考虑考虑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43397)
-- 发布时间：2013/12/6 9:27:00
-- 窗口内有两个按钮怎么实现自动交替触发，再帮忙考虑考虑
我的窗口内有两个“按钮”控件，希望自2013年12月1日起，每7天触发其中一个，交替触发，不知道怎么写。
请老师们帮忙啊~！
[此贴子已经被作者于2013-12-6 13:22:15编辑过]
-- 发布时间：2013/12/6 9:32:00
--
按钮编号末尾加上1、2……
执行按钮命令代码：
Dim d As Date = date.today()
Forms("窗口1").Controls("Button" & ((d.day \\ 7) mod 2)+1).PerformClick()
[此贴子已经被作者于2013-12-6 9:35:27编辑过]
-- 发布时间：2013/12/6 9:33:00
--
利用SaveConfigValue 保存当前触发的日期,和触发的按键
每次打开窗口前 获取日期ConfigVALUE,判断一下距离上次是否足够7天, 如果足够则获取另外一个ConfigVALUE 得知上次触发的是那个按钮
然后根据判断,执行另外一个按钮的Click事件. 同时把保存日期的COnfigVALUE存为当天日期, 保存按钮名称的ConfigVALUE也要保存为当前触发的按钮
思路就是这样.
-- 发布时间：2013/12/6 9:53:00
--
谢谢，二位版主，我捣鼓捣鼓，试试。
-- 发布时间：2013/12/6 12:58:00
--
程版的方法上半月按键顺序是1、2，但是下半月是2、1，不能实现1、2,1、2循环
-- 发布时间：2013/12/6 13:21:00
--
斌版的方法也存在问题，我的窗口将是打开后不是每天都关闭的，不能拿打开窗口前 获取日期ConfigVALUE,判断一下距离上次是否足够7天, 如果足够则获取另外一个ConfigVALUE 得知上次触发的是那个按钮
-- 发布时间：2013/12/6 13:26:00
--
Dim d As Date = date.today()
Forms("窗口1").Controls("Button" & (((d.day-1) \\ 7) mod 2)+1).PerformClick()
-- 发布时间：2013/12/6 13:55:00
--
| 1 | 0 | 0 |
| 2 | 0 | 0 |
| 3 | 0 | 0 |
| 4 | 0 | 0 |
| 5 | 0 | 0 |
| 6 | 0 | 0 |
| 7 | 0 | 0 |
| 8 | 1 | 1 |
| 9 | 1 | 1 |
| 10 | 1 | 1 |
| 11 | 1 | 1 |
| 12 | 1 | 1 |
| 13 | 1 | 1 |
| 14 | 1 | 1 |
| 15 | 2 | 0 |
| 16 | 2 | 0 |
| 17 | 2 | 0 |
| 18 | 2 | 0 |
| 19 | 2 | 0 |
| 20 | 2 | 0 |
| 21 | 2 | 0 |
| 22 | 3 | 1 |
| 23 | 3 | 1 |
| 24 | 3 | 1 |
| 25 | 3 | 1 |
| 26 | 3 | 1 |
| 27 | 3 | 1 |
| 28 | 3 | 1 |
| 29 | 4 | 0 |
| 30 | 4 | 0 |
| 31 | 4 | 0 |
-- 发布时间：2013/12/6 14:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按时触发.table |
-- 发布时间：2013/12/6 14:13:00
--
不是每天关闭就写个计时器定时触发