程式實作檔案夾圖片滾動顯示
程式啟動加載指定檔案夾下的所有圖片檔案名到串列框。判斷串列框不為空,則輪流顯示串列框內圖片檔案
串列框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萬多次后,占用記憶體持續增長,直至系統卡死。
uj5u.com熱心網友回復:
可以嘗試回圈一定次數后,把視窗重啟一下。uj5u.com熱心網友回復:
估計是pb本身的bug,你試試執行一萬次后,把當前這個包含圖片的視窗關掉,然后重新用open打開試試uj5u.com熱心網友回復:
“選擇”按鈕代碼:lb_image = gf_open_pic(p_1,lb_image)
p_1.setpicture(lb_image)
//***************************************************************
“清除”按鈕代碼:
p_1.picturename = ''
p_1.picturename = ''//(需要兩次)
setnull(lb_image)
uj5u.com熱心網友回復:
p_notice.picturename 賦值前清空下,貌似每次賦值都會累加到記憶體中,估計就是這個原因了吧uj5u.com熱心網友回復:
通過 dw的paint來畫 就不會 而且可以配合多執行緒使用 效果更佳轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/18124.html
標籤:基礎類
