高级功能研发区-我下面这段VBA代码是否有错，为什么不能在Technic图上画出我想要标签？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  我下面这段VBA代码是否有错，为什么不能在Technic图上画出我想要标签？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=173834)

--  作者：qq代人发帖
--  发布时间：2020/1/3 15:33:11
--  我下面这段VBA代码是否有错，为什么不能在Technic图上画出我想要标签？
请教：我下面这段VBA代码是否有错，为什么不能在Technic图上画出我想要标签？
sub testdraw()
dim Grid
if Application.IsActivateFrame("Technic")=0 then
call Application.ActivateFrame("Technic")
end if
Set Grid=Technic.GetGridByName("Main")
Grid.DrawIcon 26589,3536,"D:\\PerfCenterCpl.Ico"
Grid.DRAWTEXT 26589,3536,"顶"
Grid.DrawLine 26589,3500,26983,3550
end Sub

--  作者：yukizzc
--  发布时间：2020/1/6 10:20:46
--

dim Grid
if Application.IsActivateFrame("Technic")=0 then
call Application.ActivateFrame("Technic")
end if
Set Grid=Technic.GetGridByName("Main")
Grid.DRAWTEXT 100,100,"qaaaaaaaaaaa",&hFF

你范围太大了，改成100,100就行了，另外后面加个红色的，否者黑色的字也看不到

--  作者：CTR1013
--  发布时间：2020/1/6 21:49:31
--
你好！请问这里的两个100分别代表什么意思？另外颜色的代码都有哪些，怎么对应的？我按照你说的改了，还是画不出来，这是为什么？

--  作者：yukizzc
--  发布时间：2020/1/6 22:39:45
--

工具-停止行情，然后启动vba程序

100是坐标位置，颜色看这里https://baike.baidu.com/item/%E9%A2%9C%E8%89%B2%E5%B8%B8%E6%95%B0/4550591?fr=aladdin

如果是盘中行情要画图在pain事件中去更新，这些都在函数的例子里有说明的

[此贴子已经被作者于2020/1/6 22:40:12编辑过]

--  作者：CTR1013
--  发布时间：2020/1/7 21:36:41
--
你这两个100是坐标位置是啥意思？单位是什么？我技术分析图上横轴是时间，纵轴是价格，这时候两个100代表的是哪个点？

--  作者：yukizzc
--  发布时间：2020/1/8 9:07:25
--
像素点，从左上角开始的像素点，画图不是根据你所谓的时间和价格

--  作者：CTR1013
--  发布时间：2020/1/18 13:48:55
--
以前用图表程序化的时候还可以用时间跟价格来画图，现在后台程序化又不行了，你们的开发没考虑过统一一下吗？这也不行那也不行

--  作者：无为剑
--  发布时间：2020/1/19 17:05:51
--
VBA不是说不行，而是你要按照计算机的规则来设计程序