为何在图中画的直线总是一闪就消失了? - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

代码如下

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

主题：为何在图中画的直线总是一闪就消失了?