Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
List box.
Message
De
21/08/2001 16:08:55
 
 
À
21/08/2001 12:16:03
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00546465
Message ID:
00546963
Vues:
16
oops... missing the dots, sorry!
With ThisForm

     nListCount = .lstSelect.ListCount

     For I = 1 To nListCount
         .lstSelected.AddItem  (.lstSelect.List (1))
         .lstSelect.RemoveItem (1)
     EndFor
     
EndWith     
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform