Вы можете отображать рядом с элементами списка картинки.

Для отображения картинок рядом с элементами списка

  • Установите свойство Picture в файл графики для элемента управления "listbox".

Для получения более подробной информации смотрите описания Свойство Picture (Visual FoxPro) и Поддержка графики в Visual FoxPro.

Например, предположим, что вы заполняете listbox файлами и желаете отображать различные графические файлы рядом с именем файла в зависимости от его типа, то есть будет ли он таблицей, программой или файлом какого-то другого типа.

Listbox с картинками

FoxProCdriveExample screenshot

Приведенный ниже код использует цикл FOR ... ENDFOR для отображения различных графических файлов для каждого элемента в списке и появляется в событии Click этого listbox:

 CopyCode imageСкопировать код
FOR iItem = 5 TO THIS.ListCount      && файлы начинаются с 5-го элемента
   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

Для получения более подробной информации смотрите Click Event.

Смотрите также