RE:Alguien como se crear clases
Publicado por
Albert (1 intervención) el 04/12/2003 09:20:10
No se si capte bien la pregunta, pero te contesto de acuerdo a lo que entendi:
Todas las clases creadas en VFP heredan automaticamente las propiedades y eventos de la clase base, es decir, si tenemos una clase PADRE y despues creamos una clase HIJO, automaticamente esta hereda todas las propiedades y eventos de la clase PADRE.
Ejemplo:
----------------------------------------------------------------
*-- Creamos la clase BotonPadre a partir de la clase CommandButton
DEFINE CLASS BotonPadre AS CommandButton
Caption = "Presione aqui"
Height = 30
Width = 100
Visible = .T.
FontItalic = .T. && -- texto cursiva
ForeColor = RGB(255,0,0) &&-- color rojo
PROCEDURE Click
WAIT WINDOW "Ejecutando clase padre" TIMEOUT 1
CLEAR EVENTS
ENDDEFINE
*-----------------------------------------------------------------------
*-- Creamos la clase BotonHijo a partir de la clase BotonPadre
DEFINE CLASS BotonHijo AS BotonPadre
Caption = "Hazme un clic"
Height = 25
Width = 90
PROCEDURE Click
WAIT WINDOW "Ejecutando clase hijo" TIMEOUT 1
BotonPadre::Click
ENDDEFINE
En la clase BotonHijo se ha redefinido las propiedades Caption, Height y Width. Sin embargo, las propiedades Visible, FontItalic y ForeColor no se han definido, por lo tanto hereda automanticamente desde BotonPadre.
En cuanto a los eventos, el evento Click del BotonHijo quiero que ejecute un codigo, entonces defino:
PROCEDURE Click
*---
*-- Aqui mi codigo
*--
*-- Tambien quiero que ejecute el evento click del padre (BotonPadre)
BotonPadre::Click
Ohh esto ya es un poco largo... creo que me emocione :)