Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Bindevents and classes
Message
De
09/11/2007 12:38:42
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Bindevents and classes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Database:
MS SQL Server
Divers
Thread ID:
01267991
Message ID:
01267991
Vues:
67
Hi All,

I am trying something new < g >, Bindevents().

I need to run a different init of class object then the normal one. The main problem I see, is that this code that I am replaces has a lot of THIS and THISFORM.object in it. I still need most of those things done.

Will this be a problem?

The code is for a combobox init and looks like this:
LOCAL i
PUBLIC aWizFList
DIMENSION aWizFList[1]
=AFIELDS(aWizFList)
FOR m.i = FCOUNT() TO 1 STEP -1
  IF INLIST(aWizFList[m.i,2],"G","M","U")	&&Memo field
    =ADEL(aWizFList,m.i)
    DIMENSION aWizFList[MAX(1,ALEN(aWizFList,1)-1), ALEN(aWizFList, 2)]
  ENDIF
ENDFOR
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
THIS.VALUE = THIS.LIST[1]
can this be done?

TIA
Beth
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform