难道你整个模块就这一句话?
while not rstTmp.EOF
aa=rstTmp("11")
cc=rstTmp("22")
dline=Grid.PriceToPels(aa)
if day(cc)=day(date) and month(cc)=month(date) and year(cc)=year(date) then
call grid.DrawLine(0, dline,grid.width,dline,vbwhite,1,1)
else
call grid.DrawLine(0, dline,grid.width,dline,vbwhite,1)
end if
rstTmp.movenext
wend
可能是重复绘制的次数太多了。
建议绘制时,做个变量控制,绘制过一次就不要绘制了,这样也可以提高效率
我把这些函数加入进PAINT事件中,窗格每动一下就刷新一次。也就是说只要是行情时间段PAINT会一直重复绘制的。
但是这并没有引起程序的BUG,只有在我人为把K线图加载到最大的情况下,才会出现溢出。