- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 指定时间内自动打开窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84519)
-- 发布时间：2016/5/4 12:07:00
-- 指定时间内自动打开窗口
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
导航窗口的“自动”按钮，点击后实现：5月1日00：00:00至9月30日00:00:00打开窗口“春季”，且关闭窗口“冬季”；相反，10月1日00:00:00至4月30日00:00:00打开窗口“冬季”，且关闭窗口“春季”
谢谢大师！
-- 发布时间：2016/5/4 12:15:00
--
参考
Dim str As String = Format(Date.Today, "MMdd")
If str >= "0501" AndAlso str <= "0930" Then
forms("春季").show
forms("冬季").close
ElseIf str >= "1001" OrElse str <= "0430" Then
forms("冬季").show
forms("春季").Close
End If
-- 发布时间：2016/5/4 12:15:00
--
http://www.foxtable.com/help/topics/0657.htm
-- 发布时间：2016/5/4 15:16:00
--
呵呵。本来想直接找我心中的大师，就是找不到。嘿嘿。竟然有缘碰上了。谢谢大师哦
！
-- 发布时间：2016/5/4 15:24:00
--
对了。如果想停止计划，如何写呢
-- 发布时间：2016/5/4 15:35:00
--
如果写到按钮上，是不是这个代码？
MyTimers("计划1").Enabled = False
-- 发布时间：2016/5/4 15:38:00
--
以下是引用wenniu9在2016/5/4 15:35:00的发言：
如果写到按钮上，是不是这个代码？
如果写到按钮上，是不是这个代码？
MyTimers("计划1").Enabled = False
是的，参考 http://www.foxtable.com/help/topics/0658.htm
-- 发布时间：2016/5/4 15:46:00
--
OK。