程序实现文件夹图片滚动显示
程序启动加载指定文件夹下的所有图片文件名到列表框。判断列表框不为空,则轮流显示列表框内图片文件
列表框lb_notice 计数器i_notice
timer事件就简单代码:
if lb_notice.totalitems()<>0 then
p_notice.picturename=".\pic\"+lb_notice.text(i_notice)
if i_notice<lb_notice.totalitems() then
i_notice++
else
i_notice=1
end if
end if
timer循环1万多次后程序闪退。
求各位高手指教
上述代码原来写入其他程序中,但循环1万多次后,占用内存持续增长,直至系统卡死。