Le portail francophone de la géomatique

'***********************************************************
' A déclarer en variable globale pour ne pas avoir à refaire la liste dans chaque procédure qui l'utilise:
Dim Liste_de_Choix() as string  


'***********************************************************
Sub Lauch_config
    Redim Liste_de_choix(TableInfo(liste, TAB_INFO_NROWS))

    for i = 1 to n
        fetch rec i from liste
        Liste_de_choix(i) = liste.COL2
    next

    Dialog 
         Title "Cocher le ou les thèmes à traiter : "
    Control MultiListBox
        Position 10 Width 150 Height 100
        ID 3000 
        Title from variable Liste_de_choix() 
    Control OKButton
        Position 10, 120 Width 50 
        Title "OK" 
        Calling okhandler 
    Control CancelButton
            Position 80, 120 Width 50 
        Title "Annuler"

End sub

'***********************************************************
Sub okhandler 
     Do        'pour toutes les lignes sélectionnées
        Choix = ReadControlValue(3000)    ' on choppe le numéro de la ligne qui correspond au numéro dans la liste Liste_de_choix()
        If Choix <> 0 then    ' (si le numéro de la ligne = 0, c'est qu'on a fini de parcourir les lignes sélectionnées)
             Intitulé_Choix = Liste_de_choix(Choix)
                     '.... Ce que vous avez à faire pour chacun des choix...
        else
            exit Do 
        end if
    Loop 

    dialog remove

end sub