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

 代码如下

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

可否给出一个完整可运行的代码，我们运行调试后看看

 找到问题所在了，放在frame的paint事件里面就好了，查老帖子查出来的。