Alimenter une zone de liste dans un dialogue et récupérer l'item
De zBasic
Révision de 3 avril 2024 à 16:00 par Bidouille (discussion | contributions)
- Le dialogue doit comporter une zone de liste nommée ListBox1
- Une plage de cellules servira au contenu de la liste à afficher
Sub Main GlobalScope.BasicLibraries.loadLibrary ("zBasic") maPlage = zPlage.VersTable("A2:A7", "Feuille2") oDlg = zDial.Charge("Dialog1") oListe = zDial.Liste(oDlg, "ListBox1") zCtrl.Parametre(oListe, "InsertListe", maPlage) 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("Feuille2", "B9", "C", sItem) End sub