• Domingo 22 de Diciembre de 2024, 18:29

Autor Tema:  Aqui teneis un ejemplo de Agenda  (Leído 6649 veces)

Jaume

  • Miembro MUY activo
  • ***
  • Mensajes: 151
    • Ver Perfil
Aqui teneis un ejemplo de Agenda
« en: Miércoles 9 de Octubre de 2002, 08:59 »
0
Como ya son varias las personas que me han solicitado un ejemplo de una agenda para Visual Basic, cuelgo el ZIP con el proyecto ejemplo.

Saludos
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Trazos

  • Miembro activo
  • **
  • Mensajes: 32
    • Ver Perfil
    • http://JMESSA.COM
Re: Aqui teneis un ejemplo de Agenda
« Respuesta #1 en: Viernes 11 de Junio de 2004, 18:36 »
0
:hola: Jaume, gracias por tu agenda, la he instalado pero no funciona la fecha de las citas.  :o ¿ Como puedo variar la fecha siempre esta en 17/10/1998 y las citas no pueden ser de otra fecha ? ¿ como vario la fecha cuando selecciono otra en el calendario ?

Espero tu respuesta, seguro que sabras como solucionarlo.


Gracias

vradok

  • Miembro activo
  • **
  • Mensajes: 97
    • Ver Perfil
Re: Aqui teneis un ejemplo de Agenda
« Respuesta #2 en: Viernes 11 de Junio de 2004, 19:20 »
0
La agenda parece buena pero me da un error al compilar

Código: Text
  1. Error en el metodo value del objeto Icalendar
  2.  

De todas maneras mi visual hace cosas raras , en tiempo de diseño al hacer clic sobre el calendario me peta el visual (igual tiene algo que ver el SP5).

Un saludo
********************************************************
                  ladrones

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Aqui teneis un ejemplo de Agenda
« Respuesta #3 en: Sábado 12 de Junio de 2004, 16:19 »
0
La agenda me parece bastante buena, pero para iniciar marca un error de no encontrar las bases de datos, te sugiero lo siguiente para evitar ese error, además puedas colocar la agenda en cualquier directorio sin que se generen errores.

Coloca esto en el inicio del evento Form_Initialize, antes de cargar los primeros datos de la agenda.

Código: Text
  1.  
  2. ' Para que no se genere un error cuando la aplicación se abre en una red local
  3. On Error Resume Next
  4. ' Siempre tener como directorio de trabajo, en donde está la aplicación
  5. ChDrive CurDir(App.Path)
  6. ChDir App.Path
  7.  
  8.  

Retira la ruta de acceso de la propiedad DatabaseName de los dos DataControl
para que en lugar de: D:\Temp\basura\a\Agenda.mdb
Quede así: Agenda.mdb

Con lo anterior solo debes asegurarte que la base de datos se encuentre en el mismo directorio que la aplicación. Además cuando revises el proyecto y quieras agregar o cambiar enlaces con los DataControl debes correr la aplicación, al menos una vez, para que el directorio de trabajo sea el del proyecto, o te marcará error por no encontrar la base de datos.

---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.

http://geocities.com/igmario/index2.html