[求助]自定義函數(shù)中在窗格中插入公式，為何不成功？ [金字塔]
- 咨詢內(nèi)容：
想在技術(shù)分析框架-main窗格中插入公式指標(biāo)，并測試畫圖，均不成功
求教？
Function test1(Formula,cyc)
'得到K線數(shù)據(jù)對(duì)象
set MainFrame = Application.ActivateFrame("Technic")
Set Grid = Technic.GetGridByName("Main")
'插入公式KXJTAG
Grid.InsertFormula("KXJTAG")
'畫圖
Grid.DrawEllipse 10,10,100,100,255
test1=0
End Function
- 金字塔客服：
表格對(duì)象插入指標(biāo)公式是沒有問題，我使用了我的電腦上的一個(gè)指標(biāo)試用。
調(diào)用指標(biāo)代碼為
if ISLASTBAR then s:TEST1();
自定義函數(shù)的VBA代碼為
Function test1(Formula)
'系統(tǒng)會(huì)在逐周期模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
application.MsgOut("tttt")
set MainFrame = Application.ActivateFrame("Technic")
Set Grid = Technic.GetGridByName("Main") '插入公式KXJTAG
Grid.InsertFormula("Formula4") '畫圖
Grid.DrawEllipse 10,10,100,100,255
test1=0End Function
[此貼子已經(jīng)被作者于2011-10-24 16:49:26編輯過]
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊