ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

La classe collection au service des objets Liste et Combo   


L'auteur

Christophe Chenavier
France France
Membre Simple
# 0000000023
enregistré le 14/10/2004
http://www.corwin.fr
59 ans
CHENAVIER Christophe
80440 BOVES
de la société Corwin
Fiche personnelle

Note des membres
pas de note

Contributions > 01 - PRG : Programmation

La classe collection au service des objets Liste et Combo
# 0000000388
ajouté le 05/01/2007 07:36:34 et modifié le 05/01/2007
consulté 8585 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
Description
Avec VFP9, un objet de la classe collection peut servir à alimenter une Liste ou une Combo
Code source :
LOCAL I, oClient, oCol, oForm

oCol = CREATEOBJECT("COLLECTION")

FOR I = 1 TO 10
    oClient = CREATEOBJECT("Client")
    oClient.cNom = "Nom " + TRANSFORM(I)
    oClient.nNuméro = 10*I
    oCol.Add(oClient)
ENDFOR


oForm = CREATEOBJECT("FORM")

WITH oForm
     .AutoCenter = .T.

     .AddObject("Combo1","COMBOBOX")
     WITH .Combo1
          .Width = 120
          .RowSourceType = 10  && Collection
          .ColumnCount = 2
          .ColumnWidths = "100"
          .RowSource="oCol,cNom,nNuméro"
          .Style = 2
          .Visible = .T.
     ENDWITH

     .AddObject("List1","LISTBOX")
     WITH .List1
          .Top = 50
          .Width = 200
          .RowSourceType = 10  && Collection
          .ColumnCount = 2
          .ColumnWidths = "100"
          .RowSource="oCol,cNom,nNuméro"
          .Visible = .T.
     ENDWITH

ENDWITH

oForm.Show(1)


DEFINE CLASS Client AS Custom

       cNom = ''
       nNuméro = 0

ENDDEFINE
Commentaires
Aucun commentaire enregistré ...
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2025.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3