VBA代码

龙=_=

我想将框架LK的windows6的K线品种动态固定，在自选股里面用公式AA的b1指标的最大值所对应的品种来动态显示，指标值和K线图每20秒刷新一次，请帮助写出代码

技术006

这个即使我们写，其代码结构和你之前提供的代码结构也是一样的。都要基于现实牌排序操作，没有其他可替代方法，从代码方面看，没有好的方式解决你本地因为排序过程产生的未响应状态。

龙=_=

之前卡就卡在框架锁定动态牌的刷新，我现在打算将K线品种直接锁定某个指标（如自定义数据横向排序=1的品种），这个能实现吗？

技术006

那你不如直接通过GetStockPoolData 方法从股票池获取了。

龙=_=

GetStockPoolData 请谢一个范例

技术006

该方法有相关范例。它就是直接从股票池中取自己要的品种和市场即可
https://www.weistock.com/docs/VB ... tStockPoolData.html

技术006

Sub LK()

'初始化股票池名称为“123”，状态池名称为“456”的股票池
Count = marketdata.GetStockPoolCount("123", "456")

dim code0,code1
dim market0,market1
dim Price0,Price1
dim InDate0,InDate1


'取值序号取决于股票池排序方式，前n时，序号0最小，后n时，序号0最大
call marketdata.GetStockPoolData(0,code0,market0,price0,indate0)
call marketdata.GetStockPoolData(1,code1,market1,price1,indate1)

Set Grid0 = Frame1.GetGridByName("window1")
call Grid0.ChangeStock(code0,market0)

Set Grid1 = Frame1.GetGridByName("window2")
call Grid1.ChangeStock(code1,market1)

'释放字符串变量内存
Set Code0 = nothing
Set Market0 = nothing
Set Code1 = nothing
Set Market1 = nothing
End Sub


Call APPLICATION.SetTimer(0,20000)
Sub APPLICATION_VBAStart()
        LK
End Sub

Sub APPLICATION_Timer(ID)
        LK
End Sub

龙=_=

感谢