Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jaume en Miércoles 9 de Octubre de 2002, 08:59
Título: Aqui teneis un ejemplo de Agenda
Publicado por: Jaume en Miércoles 9 de Octubre de 2002, 08:59
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
Título: Re: Aqui teneis un ejemplo de Agenda
Publicado por: Trazos en Viernes 11 de Junio de 2004, 18:36
: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
Título: Re: Aqui teneis un ejemplo de Agenda
Publicado por: vradok en Viernes 11 de Junio de 2004, 19:20
La agenda parece buena pero me da un error al compilar
Código: Text
Error en el metodo value del objeto Icalendar
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
Título: Re: Aqui teneis un ejemplo de Agenda
Publicado por: cpmario en Sábado 12 de Junio de 2004, 16:19
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
' Para que no se genere un error cuando la aplicación se abre en una red local
On Error Resume Next
' Siempre tener como directorio de trabajo, en donde está la aplicación
ChDrive CurDir(App.Path)
ChDir App.Path
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.