| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- 为何在图中画的直线总是一闪就消失了? (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=5960) |
| -- 作者：wangwatercup -- 发布时间：2011/4/1 11:17:15 -- 为何在图中画的直线总是一闪就消失了? 代码如下 sub wg_paint() Set Grid = Technic.GetGridByName("Main") if Grid is NoThing Then Exit Sub End if \'PriceA wg_p1=PriceA + MinTick*N wg_p2=PriceA + MinTick*N*2 wg_p3=PriceA + MinTick*N*3 wg_p4=PriceA + MinTick*N*4 wg_p5=PriceA + MinTick*N*5 wg_p6=PriceA + MinTick*N*6 wg_p7=PriceA + MinTick*N*7 wg_p8=PriceA + MinTick*N*8 wg_p9=PriceA + MinTick*N*9 wg_p10=PriceA + MinTick*N*10 wg_pn1=PriceA - MinTick*N wg_pn2=PriceA - MinTick*N*2 wg_pn3=PriceA - MinTick*N*3 wg_pn4=PriceA - MinTick*N*4 wg_pn5=PriceA - MinTick*N*5 wg_pn6=PriceA - MinTick*N*6 wg_pn7=PriceA - MinTick*N*7 wg_pn8=PriceA - MinTick*N*8 wg_pn9=PriceA - MinTick*N*9 wg_pn10=PriceA - MinTick*N*10 grid.IsKXianBD=1 x0 = Grid.PriceToPels(PriceA) x1 = Grid.PriceToPels(wg_p1) x2 = Grid.PriceToPels(wg_p2) x3 = Grid.PriceToPels(wg_p3) x4 = Grid.PriceToPels(wg_p4) x5 = Grid.PriceToPels(wg_p5) x6 = Grid.PriceToPels(wg_p6) x7 = Grid.PriceToPels(wg_p7) x8 = Grid.PriceToPels(wg_p8) x9 = Grid.PriceToPels(wg_p9) x10 = Grid.PriceToPels(wg_p10) xn1 = Grid.PriceToPels(wg_pn1) xn2 = Grid.PriceToPels(wg_pn2) xn3 = Grid.PriceToPels(wg_pn3) xn4 = Grid.PriceToPels(wg_pn4) xn5 = Grid.PriceToPels(wg_pn5) xn6 = Grid.PriceToPels(wg_pn6) xn7 = Grid.PriceToPels(wg_pn7) xn8 = Grid.PriceToPels(wg_pn8) xn9 = Grid.PriceToPels(wg_pn9) xn10 = Grid.PriceToPels(wg_pn10) call Grid.DrawLine(0,x0,600,x0,RGB(255,0,255),1,1) call Grid.DrawLine(0,x1,1200,x1,RGB(255,255,0),1,1) call Grid.DrawLine(0,x2,1200,x2,RGB(255,255,0),1,1) call Grid.DrawLine(0,x3,1200,x3,RGB(255,255,0),1,1) call Grid.DrawLine(0,x4,1200,x4,RGB(255,255,0),1,1) call Grid.DrawLine(0,x5,1200,x5,RGB(255,255,0),1,1) call Grid.DrawLine(0,x6,1200,x6,RGB(255,255,0),1,1) call Grid.DrawLine(0,x7,1200,x7,RGB(255,255,0),1,1) call Grid.DrawLine(0,x8,1200,x8,RGB(255,255,0),1,1) call Grid.DrawLine(0,x9,1200,x9,RGB(255,255,0),1,1) call Grid.DrawLine(0,x10,1200,x10,RGB(255,255,0),1,1) \'call Grid.DrawLine(0,xn0,1200,xn0,RGB(255,0,255),1,1) call Grid.DrawLine(0,xn1,1200,xn1,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn2,1200,xn2,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn3,1200,xn3,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn4,1200,xn4,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn5,1200,xn5,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn6,1200,xn6,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn7,1200,xn7,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn8,1200,xn8,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn9,1200,xn9,RGB(0,255,255),1,1) call Grid.DrawLine(0,xn10,1200,xn10,RGB(0,255,255),1,1) end sub |
| -- 作者：王锋 -- 发布时间：2011/4/1 11:40:51 -- 可否给出一个完整可运行的代码，我们运行调试后看看 |
| -- 作者：wangwatercup -- 发布时间：2011/4/6 9:51:24 -- 找到问题所在了，放在frame的paint事件里面就好了，查老帖子查出来的。 |