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
