Resumen Codigo Calendario

Mando el codigo a la lista porque es bastante reducido.

Creanme que no se van a deslumbrar con la tecnologia :)) pero es que no tengo tiempo como para apartarme del proyecto principal y ponerme a averiguar como hacer un OCX como Dios manda.

El metodo que uso no es NADA bueno, pero funciona OK.
Lo correcto seria hacer un OCX (si alguien que tenga experiencia quiere ayudarme a hacerlo (Freeware por cierto)... :)


la cosa funciona así:
1- Se agrega el formulario al proyecto.
2- Cuando se quiere mostrar el calendario se coloca

Calen.FillCalen Fecha_por_defecto        'para cargarle la fecha
Calen.Show 1                    'para mostrarlo
Campo.text = Calen.IntDate            'se asigna la fecha al campo (por ejemplo)

Eso es todo (si, ya se que es mucho lio...)

Para navegar dentro del calendario:
MOUSE:
-ETIQUETA MES: Botón derecho aumenta el mes y el izquierdo lo disminuye.
-ETIQUETA AÑO: igual pero con el año.
-ETIQUETA HOY: Se marca el dia actual (Date())
-ETIQUETAS DIAS: Se cierra el calendario y se asigna la fecha a LabelFecha.

TECLADO:
-PGDN: Aumenta el mes
-PGUP: Disminuye el mes
-CTRL + PGDN: Aumenta el año
-CTRL + PGUP: Disminuye el año
-FLECHAS: mueven la selección actual libremente a través de todo el calendario
-Teclas H y HOME: Se marca el día actual (Date())
-ESCAPE: Cierra el calendario y no entrega ninguna fecha.
-ENTER ó SPACE: Cierra el calendario y asigna la fecha seleccionada

Una vez que se le agarra la mano, se vuelve muy comoda la navegación.
Debajo de todos los labels tengo un ssPanel que aquí he sacado.


Gustavo del Castillo
Santa Fe - Argentina
E-mail: ghc@santafe.com.ar
ICQ# 9160357

Download calen.zip  



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com