Liste avec images dans un dialogue

Sub Main
GlobalScope.BasicLibraries.loadLibrary ("zBasic")

  maListe = zImage.VersListe("Feuille2")
  
  oDlg = zDial.Charge("Dialog1")
  oListe = zDial.Liste(oDlg, "ListBox1")
  zCtrl.Parametre(oListe, "InsertListe", maListe)
  zCtrl.Parametre(oListe, "SelectListe", 1)
  oRetour = zDial.Lance(oDlg)

  if oRetour.Tag = 0 then exit sub
  oListe = zDial.Liste(oRetour, "ListBox1")
  sItem = zCtrl.Propriete(oListe, "SelectionItemListe")
  zCellule.Ecrit("Feuille1", "A1", "C", sItem)
  
End sub

• Télécharger le document exemple : Fichier:ZListeAvecImages.ods