标题：ValueByPoint

1楼

orca8 发表于：2016/4/23 15:34:27

ValueByPoint(X, Y, Date, Price, [Correct])

X,Y 输入参数，点位置坐标。

Date 输出参数，输入点位置的日期。

Price 输出参数，输入点位置的

Correct 可选参数，当输入点超过当前窗格范围时，是否允许进行修正，默认为True。

返回值 输入点坐标对应的周期序列。

这个函数，的Date 输出总是最后一天 23号。 x，y坐标是不同的

944 499 2016/4/23   3848
969 560 2016/4/23   3596
970 559 2016/4/23   3600
960 564 2016/4/23   3579
960 564 2016/4/23   3579    我是多个窗格，有几个周期，为什么只有1，3分钟取到的坐标对应的价格是对的，稍微大点的周期取的值都不对

2楼

orca8 发表于：2016/4/23 16:31:28

FrameToGrid 是不是要转换下，此函数不能用，说参数类型不匹配

3楼

马良发表于：2016/4/23 17:15:50

x，y坐标你是怎么输入的。

4楼

orca8 发表于：2016/4/23 17:52:54

mousemove(grid, index,x,y) 鼠标移动的时候就保存了xy

5楼

王锋发表于：2016/4/23 17:58:24

不知道你具体的代码是怎么写的？

6楼

orca8 发表于：2016/4/23 18:31:41

Sub frame_dkp_MouseMove(Grid,index,x, y)

set Grid1 = frame_dkp.GetGridByPt(x, y)

set Grid1 = frame_dkp.GetGridByName(Grid1.Name)
Dim Values
Dim Date

'call FrameToGrid(x,y, x1, y2) ‘不能使用

call Grid1.ValueByPoint(x, y,Date,Values,true)
    v1 = round(Values, 0)

application.msgout date & " "& v1

end sub

7楼

王锋发表于：2016/4/23 23:38:47

Sub Technic_MouseMove(Button, Shift, x, y)
set Grid1 = Technic.GetGridByPt(x, y)
if not(Grid1 is nothing) then ‘这里要判断对象是否为空，养成良好的编程习惯

  set Grid1 = Technic.GetGridByName(Grid1.Name)
  Dim Values
  Dim Date

   x1=0
   y2=0
   call Grid1.FrameToGrid(x,y,x1,y2)

call Grid1.ValueByPoint(x1, y2,Date,Values,true)
    v1 = round(Values, 0)
application.msgout date & " "& v1 & "--"& Grid1.Name
end if

End Sub

[此贴子已经被作者于2016/4/23 23:39:20编辑过]

8楼

orca8 发表于：2016/4/24 11:28:35

多谢，！忘记写grid了，诶

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