Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bindevents and classes
Message
From
09/11/2007 12:38:42
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Bindevents and classes
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Database:
MS SQL Server
Miscellaneous
Thread ID:
01267991
Message ID:
01267991
Views:
66
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
Next
Reply
Map
View

Click here to load this message in the networking platform