代码如下
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
|