INTEC Forum
Bienvenido Registrate !!!

para que sirve estecomando

Ver el tema anterior Ver el tema siguiente Ir abajo

para que sirve estecomando

Mensaje  sweet angel stephany el Vie Nov 06, 2009 10:50 pm

para que sirven los comandos compile endfuc endproc procedure Laughing Laughing Smile Shocked

sweet angel stephany

Cantidad de envíos : 7
Puntos : 13141
Fecha de inscripción : 02/10/2009
Edad : 23
Localización : SAN PEDRO SULA

Ver perfil de usuario

Volver arriba Ir abajo

Re: para que sirve estecomando

Mensaje  ApOcALicToX_EdUaRDo el Vie Nov 06, 2009 10:59 pm

Crea una clase o una subclase definida por el usuario y especifica las propiedades, los eventos y los métodos para la clase o la subclase.

DEFINE CLASS ClassName1 AS ParentClass [OF ClassLibrary] [OLEPUBLIC]
[IMPLEMENTS cInterfaceName [EXCLUDE]
IN TypeLib | TypeLibGUID | ProgID ]
[[PROTECTED | HIDDEN PropertyName1, PropertyName2 ...]
[[.]Object.]PropertyName = eExpression ...]
[ADD OBJECT [PROTECTED] ObjectName AS ClassName2 [NOINIT]
[WITH cPropertylist]]
[[PROTECTED | HIDDEN] FUNCTION | PROCEDURE Name[_ACCESS |_ASSIGN]
([cParamName [AS type] [@]]) [AS type]
[HELPSTRING cHelpString] |
THIS_ACCESS(cMemberName)
[NODEFAULT]
cStatements
[ENDFUNC | ENDPROC]]
[PEMName_COMATTRIB = nFlags | DIMENSION PEMName_COMATTRIB[5]
[PEMName_COMATTRIB[1] = nFlags
PEMName_COMATTRIB[2] = cHelpString
PEMName_COMATTRIB[3] = cPropertyCapitalization
PEMName_COMATTRIB[4] = cPropertyType
PEMName_COMATTRIB[5] = nOptionalParams]]
ENDDEFINE

El código de ejemplo siguiente crea una subclase llamada MyForm, basada en la clase Form. El formulario contiene un método Click que muestra un cuadro de diálogo cuando se hace clic en MyForm

DEFINE CLASS MyForm AS Form
PROCEDURE Click
= MESSAGEBOX('MyForm has been clicked!')
ENDPROC
ENDDEFINE

ApOcALicToX_EdUaRDo

Cantidad de envíos : 11
Puntos : 13365
Fecha de inscripción : 21/08/2009

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.