jueves, julio 21, 2005

Codigo ASP.Net - Usando el componente Calendar.

Despues de varias semanas regreso al blog. La razón fué un trabajo para la SEP, que no involucró programación, sólo diseño. En un post mas adelante comentaré este asunto, por lo pronto y regresando a la aplicación de la oficina.
En esta ocasión utilice el componente Calendar en la aplicación, de verdad que es muy práctico, y me olvio de estar haciendo conversiones por aquello de los regionalismos.
Por otra parte el usuario no tiene que escribir mal la fecha... ;).
Es asi que el código es el siguiente:

< id="btnCalendar" onclick="btnCalendar_Click" runat="server" imageurl="/images/calendar1.gif">

< /asp:ImageButton >

< id="Calendar1" runat="server" size="8pt" visible="False" forecolor="Black" onselectionchanged="Calendar1_SelectionChanged" cellpadding="4" daynameformat="FirstLetter" bordercolor="#999999" names="Verdana" height="180px" width="200px" backcolor="White" selecteddate="2005-07-19">
< forecolor="Black" backcolor="#CCCCCC">< /TodayDayStyle >
< backcolor="#CCCCCC">< /SelectorStyle >
< verticalalign="Bottom">
< size="7pt" bold="True" backcolor="#CCCCCC">< /DayHeaderStyle >
< bold="True" forecolor="White" backcolor="#666666">< /SelectedDayStyle>
< bold="True" bordercolor="Black" backcolor="#999999">< /TitleStyle >
< backcolor="LightSteelBlue">< /WeekendDayStyle >
< forecolor="#808080">< /OtherMonthDayStyle >
< /asp:Calendar >

< id="txtFechaDevolucion" runat="server" bold="True">< /asp:Label >

El primero es una pequeña imagen-boton que lo unico que hace es activar el componente Calendar:

Una vez que se da un click se ejecuta el siguiente evento:


Sub btnCalendar_Click(sender As Object, e As ImageClickEventArgs)
If Calendar1.Visible = False Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub




Se selecciona la fecha y queda guardada en un componente de Label.


Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs)
txtFechaDevolucion.Text = Calendar1.SelectedDate
If Calendar1.Visible = True Then
Calendar1.Visible = False
End If
End Sub



Listo!

1 comentario:

Mickel dijo...

Gracias a ustedes fue que empece a usar el control Calendar. En mi blog podran ver algo que he podido avanzar al respecto.

Exitos!