Calendar Control in .Net with Year added to navigate easily

Below code was developed in .Net framework.


Aspx Page code:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

Add a button with ID "decreaseYear", Label with ID = "lblYear", Button with ID="increaseYear" and Calendar ID="Calendar1".

I'm unable to post the HTML tags. So just posting the toolbox controls to be added.


VB.NET Behind Code:



Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged

End Sub

Protected Sub Calendar1_VisibleMonthChanged(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MonthChangedEventArgs) Handles Calendar1.VisibleMonthChanged

lblYear.Text = Calendar1.VisibleDate.Year
Calendar1.VisibleDate = New Date(lblYear.Text, Calendar1.VisibleDate.Month, 1)
End Sub

Protected Sub increaseYear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles increaseYear.Click
lblYear.Text = Calendar1.VisibleDate.Year + 1
Calendar1.VisibleDate = New Date(lblYear.Text, Calendar1.VisibleDate.Month, 1)
End Sub

Protected Sub decreaseYear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles decreaseYear.Click
lblYear.Text = Calendar1.VisibleDate.Year - 1
Calendar1.VisibleDate = New Date(lblYear.Text, Calendar1.VisibleDate.Month, 1)
End Sub
End Class