Dudas sobre OCX
Quiero pedirte que si tienes material para conocer los métodos y eventos del control OCX MSCAL.Calendar. 7 en Visual Foxpro 7.0, tengo que realizar una aplicación como una agenda y no encuentro material acerca de esto.
Gracias de antemano
Verónica
Gracias de antemano
Verónica
1 Respuesta
Respuesta de falvarez
1
Estimada verónica:
Crea un formulario, inserta el control: CONTROLCALENDAR 7.0 ó 8.0.
Haz Click Derecho en el objeto y vé a "Calendar Properties".
Vé a la Ayuda y allí obtendrás todos los eventos, propiedades y métodos del control.
Por ejemplo, en el método "CLICK" puedes escribir el siguiente código:
SET DATE FRENCH
SET CENTURY ON
_DIA=REPLICATE('0',2-LEN(ALLTRIM(STR(this.day))))+ALLTRIM(STR(this.day))
_MES=REPLICATE('0',2-LEN(ALLTRIM(STR(this.month))))+ALLTRIM(STR(this.month))
_ANI=REPLICATE('0',4-LEN(ALLTRIM(STR(this.year))))+ALLTRIM(STR(this.year))
_FECHA=_DIA+'/'+_MES+'/'+_ANI
_FECHA=CTOD(_FECHA)
WAIT 'HA SELECCIONADO: '+DTOC(_FECHA) WIND
Crea un formulario, inserta el control: CONTROLCALENDAR 7.0 ó 8.0.
Haz Click Derecho en el objeto y vé a "Calendar Properties".
Vé a la Ayuda y allí obtendrás todos los eventos, propiedades y métodos del control.
Por ejemplo, en el método "CLICK" puedes escribir el siguiente código:
SET DATE FRENCH
SET CENTURY ON
_DIA=REPLICATE('0',2-LEN(ALLTRIM(STR(this.day))))+ALLTRIM(STR(this.day))
_MES=REPLICATE('0',2-LEN(ALLTRIM(STR(this.month))))+ALLTRIM(STR(this.month))
_ANI=REPLICATE('0',4-LEN(ALLTRIM(STR(this.year))))+ALLTRIM(STR(this.year))
_FECHA=_DIA+'/'+_MES+'/'+_ANI
_FECHA=CTOD(_FECHA)
WAIT 'HA SELECCIONADO: '+DTOC(_FECHA) WIND
