共12 条记录, 每页显示 10 条, 页签: [1] [2]

标题：Grid.ChangeCyc

1楼

orca8 发表于：2015/10/6 9:02:58

Grid.ChangeCyc 为什么不支持自定义周期例如 33分钟之类的

2楼

orca8 发表于：2015/10/6 9:08:02

ChangeCyc(Cyc, Mode)

Cyc 当前窗格数据的周期类型，0 1分钟 1 5分钟 2 15分钟 3 30分钟 4 60分钟 5日线 6周线 7月线 8年线 9多日线 10分笔成交 11多小时 12多秒 13多分钟线 14季度线 15半年线 16节气线 17 3分钟 18 10分钟。

Mode 更换模式 0没有动作 1更新过后重新刷新主图数据和所有主幅图公式.

13 多分钟怎么用的

3楼

王锋发表于：2015/10/6 11:06:55

CYC=13

MoreMinute = 33 '表示33分钟

4楼

orca8 发表于：2015/10/6 15:47:56

MoreMinute 这个是参数还是？

5楼

orca8 发表于：2015/10/6 16:14:31

set grid = Technic.GetGridByName("main")
grid.MoreMinute=33
call grid.ChangeCyc(13,1)

比如我要切换 33 再切换到22 分钟，用不了，要切回到正常的比如1分钟，才能切换。

6楼

yukizzc 发表于：2015/10/6 16:39:09

set grid = Technic.GetGridByName("main")
grid.ChangeCyc 13, 1
grid.MoreMinute = 7

这个顺序，先更改窗格周期多分钟的。然后修改该窗格的多分钟属性为具体某个值

[此贴子已经被作者于2015/10/6 16:39:23编辑过]

7楼

orca8 发表于：2015/10/6 19:00:49

一样，我写了一个按键相应的， 22，33分钟之间切换。切不动

if Keycode = 88 then

if Application.IsActivateFrame("Technic")=1 then
   call GetData("MainTuType2", f1)
   set Grid = Technic.GetGridByName("main")
    if f1=0 then
     call SetData("MainTuType2", 1)
     call Grid.ChangeCyc(13, 1)
     Grid.MoreMinute=33
end if

    if f1=1 then
     call SetData("MainTuType2", 0)
     call Grid.ChangeCyc(13, 1)
     Grid.MoreMinute=22
     end if

   Grid.ReInitDataFormula

end if
end if

8楼

orca8 发表于：2015/10/7 8:28:12

求解

9楼

yukizzc 发表于：2015/10/7 10:08:59

不太明白你这里getdata这两个方法，但切换周期是没有问题的，下面代码我用按键,和.来分别实现7分钟和25分钟变化。

sub sd(num)
set grid = Technic.GetGridByName("main")
grid.ChangeCyc 13, 1
grid.MoreMinute = num
end sub

sub Technic_KeyDown(KeyCode, Shift)
if KeyCode=188 then

        call sd(7)
    end if
    if KeyCode=190 then
    call sd(25)
    end if
   end sub

[此贴子已经被作者于2015/10/7 10:09:15编辑过]

10楼

pel46585 发表于：2015/10/8 14:57:14

估计刷新一下就OK了，你加个刷新Grid.ReInitDataFormula试下，或者其它的Resh。金字塔有时候用代码写的，完成后要刷新下才能看出来效果

共12 条记录, 每页显示 10 条, 页签: [1] [2]