- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 请帮助在启动软件时做一个股票池的弹框 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=182928)
-- 发布时间：2020/11/9 18:11:16
-- 请帮助在启动软件时做一个股票池的弹框
请帮助在启动软件时做一个股票池的弹框，确认后再运行股票池（不需要勾选股票池默认自动启动）。
这个弹框，我主要是用来避免软件启动时数据缺失而造成股票池胡乱交易，而如果不勾选软件的股票池自动启动选项又担心开机忘记运行股票池，所以才想在启动软件做一个股票池运行的确认弹框。
谢谢
[此贴子已经被作者于2020/11/9 18:12:49编辑过]
-- 发布时间：2020/11/10 8:50:48
--
我觉得数据问题，你历史补充好后每天做收盘这样数据都是没问题的
如果是异常重启，就像另一个帖子回复的重启后首先就是补充当日分笔
-- 发布时间：2020/11/10 10:14:58
--
你没看懂我上面要表达的意思
-- 发布时间：2020/11/10 10:46:09
--
将这段代码放到VBA的工程文档里，推荐放到Global模块中
Sub APPLICATION_Start()
Set msgboxs = CreateObject("WWSCommon.MessageBoxEx")
msgboxs.Button = 2
msgboxs.IconType = 3
rets = msgboxs.DoModal("是否启动股票池计算？","提示")
If rets = 6 Then
MarketData.StartStockPool()
End If
End Sub
Set msgboxs = CreateObject("WWSCommon.MessageBoxEx")
msgboxs.Button = 2
msgboxs.IconType = 3
rets = msgboxs.DoModal("是否启动股票池计算？","提示")
If rets = 6 Then
MarketData.StartStockPool()
End If
End Sub
此主题相关图片如下：tim截图20180904181842.png
注意：开启此功能前务必将股票池的自动启动功能关闭掉
-- 发布时间：2020/11/10 12:25:17
--
ok了，谢谢
-- 发布时间：2020/12/16 15:42:00
--
您好，刚测试自动重启计划。发现无法自动确认启动股票池，请问是否可以优化？
-- 发布时间：2020/12/17 13:15:32
--
工具-更多功能-文档启动项
允许自动启动visual basi
这里打勾
-- 发布时间：2020/12/18 8:50:08
--
我查了一下，允许自动启动Visual Basic(S) 是打了勾的
此主题相关图片如下：微信图片_20201218084941.png
-- 发布时间：2020/12/18 9:16:46
--
加我qq远程看
2857926939
-- 发布时间：2020/12/20 21:47:48
--
需要计划重启时，我删除以上代码就是，这个问题可以解决，谢谢。