Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Classes and objects
Message
 
 
To
25/01/2005 21:58:52
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00980618
Message ID:
00981284
Views:
19
If you do not have the _base classlib in the FCC folder or do not wish to use that, here is some code that will build your own VCX with all the native controls, except ole classes, subclassed for you:
IF NOT DIRECTORY(".\Classes")
   MD .\Classes
ENDIF
IF FILE(".\Classes\_BaseClass.vcx")
   MESSAGEBOX("Class library Classes\_BaseClass.vcx already exists. Base class creation aborted")
   RETURN
ENDIF
ON ERROR Keyboard "I" CLEAR
lnRetVal = ALANGUAGE(laClasses,3)
FOR EACH lcClass IN laClasses
   IF UPPER(lcClass) = 'OLE'
      LOOP
   ENDIF
   KEYBOARD "{Ctrl+W}" CLEAR
   CREATE CLASS ("_" + lcClass) ;
      OF .\Classes\_BaseClass ;
      AS (lcClass)
ENDFOR
ON ERROR
DO (_browser) WITH ".\Classes\_BaseClass"
>Hi !
>
>I was wondering if it was possible to modify a base class of visual foxpro. In concrete, I would like to modificate the commandbutton's base class to add a new property and a new method, so my software will be updated upon compiling. Is this possible ?
>
>Many thanks,
>
>An Michel R.
Mark McCasland
Midlothian, TX USA
Previous
Reply
Map
View

Click here to load this message in the networking platform