Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Classes and objects
Message
 
 
À
25/01/2005 21:58:52
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00980618
Message ID:
00981284
Vues:
18
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform