共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请帮助在启动软件时做一个股票池的弹框
1楼
longkun 发表于：2020/11/9 18:11:16 请帮助在启动软件时做一个股票池的弹框，确认后再运行股票池（不需要勾选股票池默认自动启动）。
这个弹框，我主要是用来避免软件启动时数据缺失而造成股票池胡乱交易，而如果不勾选软件的股票池自动启动选项又担心开机忘记运行股票池，所以才想在启动软件做一个股票池运行的确认弹框。
谢谢
[此贴子已经被作者于2020/11/9 18:12:49编辑过]
2楼
yukizzc 发表于：2020/11/10 8:50:48我觉得数据问题，你历史补充好后每天做收盘这样数据都是没问题的
如果是异常重启，就像另一个帖子回复的重启后首先就是补充当日分笔
3楼
longkun 发表于：2020/11/10 10:14:58 你没看懂我上面要表达的意思
4楼
无为剑 发表于：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
注意：开启此功能前务必将股票池的自动启动功能关闭掉
5楼
longkun 发表于：2020/11/10 12:25:17 ok了，谢谢
6楼
longkun 发表于：2020/12/16 15:42:00 您好，刚测试自动重启计划。发现无法自动确认启动股票池，请问是否可以优化？
7楼
yukizzc 发表于：2020/12/17 13:15:32工具-更多功能-文档启动项
允许自动启动visual basi
这里打勾
8楼
longkun 发表于：2020/12/18 8:50:08 我查了一下，允许自动启动Visual Basic(S) 是打了勾的
此主题相关图片如下：微信图片_20201218084941.png
此主题相关图片如下：微信图片_20201218084941.png9楼
yukizzc 发表于：2020/12/18 9:16:46加我qq远程看
2857926939
10楼
longkun 发表于：2020/12/20 21:47:48 需要计划重启时，我删除以上代码就是，这个问题可以解决，谢谢。
共10 条记录, 每页显示 10 条, 页签:
[1]