Public Sub

[momo]

Hola gente
tengo un problema con un public sub...
si pongo el code en el form anda perfecto. pero si lo pongo en un module no me anda y no se por que.
el form se llama formagregarnotas y lo que quiero que haga es simplemente no poner el circulito en la fecha actual en un MonthCalendar.
el error que me tira es el siguiente: "Additional information: Referencia a objeto no establecida como instancia de un objeto."
Alguna idea?
Este es el code.

Public Sub refrescarformagregarnotas()
Dim agregarnotas As formagregarnotas
agregarnotas.MonthCalendar1.ShowTodayCircle = False
End Sub


si en cambio pongo:
Public Sub refrescarformagregarnotas()
Dim agregarnotas As new formagregarnotas
agregarnotas.MonthCalendar1.ShowTodayCircle = False
End Sub
Simplemente no hace nada sin darme ningun mensaje de error.

Gracias
Mariano

[RicaJ0625]

Esto sucede porque estas cambiando el valor en una forma nueva (el uso del New), no es la misma forma que ya tienes cargada.

Public Sub refrescarformagregarnotas(ByVal agregarnotas As formagregarnotas)

Y la llamas refrescarformagregarnotas(agregarnotas)

Lo que puedes hacer es enviar la forma a la rutina como un parametro. Asi si te debe de funcionar.

[Jose_minglein2]

En tu primera opción lo que pasa es que no creas el objeto, y en tu segunda lo que haces es crear un nuevo objeto pero tampoco te hace nada, porque es un nuevo objeto. Lo que debes hacer es en el loda del form formagregarnotas poner el

me.MonthCalendar1.ShowTodayCircle = False

[momo]

gracias
RicaJ0625 no entiendo lo que me explicas. recien empiezo con esto y no entendi eso de enviar la forma a la rutia como un parametro.
Jose_minglein2 lo que pasa es que esa funcion la uso muchas veces en la aplicacion entonces necesito tenerla en un solo lugar para llamarla cuando la necesite sino el codigo se me hace inmenso.
Gracias a los dos
Mariano

[Jose_minglein2]

Ya entiendo lo que quieres decir, entonces lo mejor es que hagas lo que te dice Rica0625, pero en vez de pasarle el formulario yo le pasaría el MonthCalendar por referencia, es decir, en tu modulo:


Public Sub refrescarformagregarnotas(byref Cal as MonthCalendar)
Cal.ShowTodayCircle = False
End Sub

Y luego desde cualquier form

dim mimodulo as modulo
mimodulo.refrescarformagregarnotas(MonthCalendar1)

[momo]

ah ok... lo pruebo y les digo
Encima es el primer programa que hago y todo lo que hago lo tengo que aprender de cero :S...

Muchas Gracias
Salu2
Mariano