js editor
Web development
You can display pictures next to items in lists.
To display pictures next to items in a list
-
Set the Picture property to a graphic file for the list box.
For more information, see Picture Property (Visual FoxPro) and Graphics Support in Visual FoxPro.
For example, suppose you populate a list box with files and want to display a different graphics file next to each file depending on whether the file is table, a program, or some other file type.
The following code uses the FOR ... ENDFOR command to
displays a different graphics file for each item in the list and appears in the Click event of this list box:
| В |  Copy Code |
|---|---|
FOR iItem = 5 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 | |
For more information, see Click Event.