Freigeben über

Hinzufügen von Bildern zu Einträgen in einer Liste

  • Artikel

Sie können die Picture-Eigenschaft der Liste auf die Grafikdatei einstellen, die neben den Einträgen in der Liste angezeigt werden soll. Weitere Informationen zu gültigen Dateitypen finden Sie unter Grafikunterstützung in Visual FoxPro.

Beispielsweise könnten Sie ein Listenfeld mit Dateien angelegt haben. Wenn es sich bei der Datei um eine Tabelle, ein Programm oder irgendeinen anderen Dateityp handelt, soll daneben ein anderes Bitmap angezeigt werden.

Listenfeld mit Bildern

Der folgende Code ist mit dem Click-Ereignis des Listenfeldes verbunden:

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

Siehe auch

Hinzufügen von Bildern zu Einträgen in einer Liste | Verwenden von Kontrollkästchen | Akzeptieren nicht vorherbestimmbarer Eingaben | Verwenden von Steuerelementen | Steuerelemente und Objekte