I don't have a error message. My combo display only 55 lines
with images. Here down the RefreshPic method tha i use.
---
local nItem, cPic
if not empty(thisform.aLicoes)
cPic = ''
with thisform
for nItem = 1 to .lstLicoes.ListCount
do case
case thisform.aLicoes[nItem,4] = 'TEO'
cPic = "bitmaps\teo3.bmp"
case thisform.aLicoes[nItem,4] = 'TEC'
cPic = "bitmaps\tec2.bmp"
case thisform.aLicoes[nItem,4] = 'PRA'
cPic = "bitmaps\pra4.bmp"
case thisform.aLicoes[nItem,4] = 'LOC'
cPic = "bitmaps\lock3.bmp"
otherwise
cPic = "bitmaps\clock2.bmp"
endcase
.lstLicoes.Picture(nItem) = cPic
next
endwith
endif
---
the value of .lstLicoes.ListCount is 65 lines.
You don't indicate the version and Service Pack number of the VFP you are using, but are you running the most current available? The MSDN KnowledgeBase lists a couple known problems:
- "PRB: ListBox/ComboBox Picture Won't Display If Defined in Class"
Also you didn't indicate the OS you are running under - the Win9x's have always have resource limitations, and graphics can quickly exhaust them. Have you tried this code under NT / 2000 / XP ?
Thanks Rgbean, but the known problems in MS page is for VFP 3.0 and my version is VFP 6.0 SP5 and the problem is when i have more than 55 lines in combo.
About OS i've experience the problem with win2k and win98.
Problem can be reproduced if you try to select to an array, use this array in combo and then try to put a graphic to a combo item.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.