C a l e n d a r i o V i s u a l B a s i c

Antes de empezar hemos de crear un cuadro de texto i una etiqueta en la cual pondremos el numero del dia y en el cuadro de texto escribiremos la nota que queramos:

Esto lo copiamos y lo pegamos unas 31 veces una al lado de la otra hasta conseguir algo asi:

Ahora crearemos una barra de menus para colocar los Meses y tambien colocaremos el codigo para que se visualice en una etiqueta previamente creada para que se visualice el mes seleccionado:

Label4.Caption = meses(Index).Caption
meses(0).Caption = "Enero"
meses(1).Caption = "Febrero"
meses(2).Caption = "Marzo"
meses(3).Caption = "Abril"

En el caso de febrero tendremos que hacer que tres de los cuadros y etiquetas que contienen el numero del dia desaparezcan. Con este codigo:

If (Index = 1) Then

Text1(28).Visible = False

Text1(29).Visible = False

Text1(30).Visible = False

Label2(28).Visible = False

Label2(29).Visible = False

Label2(30).Visible = False

End If

Para poder escribir en el cuadro debemos hacer doble click en el cuadro de texto y esto se hace de la siguiente manera.

Hacemos dobleclik en el cuadro de texto y escribimos el siguiente codigo:

Private Sub Text1_DblClick(Index As Integer)
Txnotas.Visible = True
Indice = Index
Txnotas.Text = Text1(Index).Text
End Sub

Txnotas es un cuadro de texto que se abrira para poder escribir dentro.

Luego entramos en el codigo de Txnotas para que luego podamos acer doble clik dentro del cuadro para que lo podamos cerrar y que se quede guardado. Este es el codigo: