General information
Category:
Forms & Form designer
Thanks. I'm getting closer.
Here is the example code:
FOR iItem = 1 TO THIS.ListCount && files start at the 5th item
cExtension = UPPER(RIGHT(THIS.List(iItem),3))
DO CASE
CASE cExtension = "DBF"
THIS.Picture(iItem) = "tables.bmp"
CASE cExtension = "BMP"
THIS.Picture(iItem) = "other.bmp"
CASE cExtension = "PRG"
THIS.Picture(iItem) = "programs.bmp"
CASE cExtension = "SCX"
THIS.Picture(iItem) = "form.bmp"
OTHERWISE
THIS.Picture(iItem) = IIF("]" $ cExtension, ;
"", "textfile.bmp")
ENDCASE
ENDFOR
*** Note that they use parens and not brackets. When I use brackets, an error is not generated, but nothing else happens. Perhaps I have to set some other properties?
In my listbox init method, this works on all rows:
This.Picture = "c:\vcs4.0\gui\bitmaps\clock.bmp"
But this has no effect:
This.Picture[1] = "c:\vcs4.0\gui\bitmaps\stop.bmp"
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only