Alimenter une zone de liste dans un dialogue et récupérer l'item : Différence entre versions
De zBasic
(Page créée avec « Catégorie:Exemples Fichier:ZCtrl liste.gif * Le dialogue doit comporter une zone de liste nommée ListBox1 * Une plage de cellules servira au contenu de la liste... ») |
|||
Ligne 7 : | Ligne 7 : | ||
maPlage = [[zPlage.VersTable]]("A2:A7", "Feuille2") | maPlage = [[zPlage.VersTable]]("A2:A7", "Feuille2") | ||
− | |||
oDlg = [[zDial.Charge]]("Dialog1") | oDlg = [[zDial.Charge]]("Dialog1") | ||
oListe = [[zDial.Liste]](oDlg, "ListBox1") | oListe = [[zDial.Liste]](oDlg, "ListBox1") | ||
− | [[zCtrl.Parametre]](oListe, "InsertListe", | + | [[zCtrl.Parametre]](oListe, "InsertListe", maPlage) |
zCtrl.Parametre(oListe, "SelectListe", 1) | zCtrl.Parametre(oListe, "SelectListe", 1) | ||
oRetour = [[zDial.Lance]](oDlg) | oRetour = [[zDial.Lance]](oDlg) | ||
− | + | ||
if oRetour.Tag = 0 then exit sub | if oRetour.Tag = 0 then exit sub | ||
oListe = zDial.Liste(oRetour, "ListBox1") | oListe = zDial.Liste(oRetour, "ListBox1") | ||
sItem = [[zCtrl.Propriete]](oListe, "SelectionItemListe") | sItem = [[zCtrl.Propriete]](oListe, "SelectionItemListe") | ||
[[zCellule.Ecrit]]("Feuille2", "B9", "C", sItem) | [[zCellule.Ecrit]]("Feuille2", "B9", "C", sItem) | ||
− | + | ||
− | End sub | + | End sub |
Version actuelle en date du 3 avril 2024 à 16:00
- 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