Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
Select Case CurrentCellID
Case 1
If e.Day.IsOtherMonth = True And e.Day.Date.AddDays(7).Day = 1 Then
blnRemoveFirstRow = True
e.Cell.Controls.RemoveAt(0)
End If
Case 2 To 7
If blnRemoveFirstRow = True Then
e.Cell.Controls.RemoveAt(0)
End If
Case 36
If e.Day.IsOtherMonth = True Then
blnRemoveLastRow = True
e.Cell.Controls.RemoveAt(0)
End If
Case 37 To 42
If blnRemoveLastRow = True Then
e.Cell.Controls.RemoveAt(0)
End If
End Select
CurrentCellID += 1
End Sub
<%@ Page Language="vb" AutoEventWireup="false" src="CalendarHideWeeks.aspx.vb" inherits="CalendarHideWeeks"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>CalendarHideWeeks</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="[URL unfurl="true"]http://schemas.microsoft.com/intellisense/ie5">[/URL]
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<asp:Calendar id="Calendar1" runat="server" ></asp:Calendar>
</form>
</body>
</HTML>Imports Microsoft.visualbasic
Imports System.Web.UI.WebControls
Imports System.Web
Imports System.Web.ui
Imports System
Public Class CalendarHideWeeks
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Me.Calendar1.VisibleDate = Now
End Sub
Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
If e.Day.Date.DayOfWeek = DayOfWeek.Sunday Then
If e.Day.Date.Month <> CType(sender, Calendar).VisibleDate.Month And _
e.Day.Date.AddDays(6).Month <> CType(sender, Calendar).VisibleDate.Month Then
Dim lit As New Literal
lit.Text = "<script id='" & e.Day.Date.Ticks.ToString & "'>window.setTimeout('document.getElementById(\'" & e.Day.Date.Ticks.ToString & "\').parentNode.parentNode.style.display=\'none\'',50);</script>"
e.Cell.Controls.Add(lit)
End If
End If
End Sub
End Class<%@ Page %>
<%@ Import NameSpace="System.Web.UI.WebControls" %>
<%@ Import NameSpace="MicroSoft.VisualBasic" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<script runat=server>
Dim CurrentCellID As Integer = 1
Dim blnRemoveFirstRow As Boolean = False
Dim blnRemoveLastRow As Boolean = False
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Put user code to initialize the page here
Me.Calendar1.VisibleDate = Now
End Sub
Public Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs)
Select Case CurrentCellID
Case 1
If e.Day.IsOtherMonth = True And e.Day.Date.AddDays(7).Day = 1 Then
blnRemoveFirstRow = True
e.Cell.Controls.RemoveAt(0)
End If
Case 2 To 7
If blnRemoveFirstRow = True Then
e.Cell.Controls.RemoveAt(0)
End If
Case 36
If e.Day.IsOtherMonth = True Then
blnRemoveLastRow = True
e.Cell.Controls.RemoveAt(0)
End If
Case 37 To 42
If blnRemoveLastRow = True Then
e.Cell.Controls.RemoveAt(0)
End If
End Select
CurrentCellID += 1
End Sub
</script>
<HTML>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:Calendar OnDayRender="Calendar1_DayRender" id="Calendar1" style="Z-INDEX: 101; LEFT: 76px; POSITION: absolute; TOP: 52px" runat="server"></asp:Calendar>
</form>
</body>
</HTML> Private Sub RemoveExtraWeek(ByVal sender As System.Object, ByRef e As System.Web.UI.WebControls.DayRenderEventArgs)
Select Case CurrentCellID
Case 1
If e.Day.IsOtherMonth = True And e.Day.Date.AddDays(7).Day = 1 Then
blnRemoveFirstRow = True
e.Cell.Controls.RemoveAt(0)
End If
Case 2 To 7
If blnRemoveFirstRow = True Then
e.Cell.Controls.RemoveAt(0)
End If
Case 36
If e.Day.IsOtherMonth = True Then
blnRemoveLastRow = True
e.Cell.Controls.RemoveAt(0)
End If
Case 37 To 42
If blnRemoveLastRow = True Then
e.Cell.Controls.RemoveAt(0)
End If
End Select
CurrentCellID += 1
End Sub Private Sub RemoveExtraWeek(ByVal sender As System.Object, ByRef e As System.Web.UI.WebControls.DayRenderEventArgs)
If e.Day.Date.DayOfWeek = DayOfWeek.Sunday Then
If e.Day.Date.Month <> CType(sender, Calendar).VisibleDate.Month And _
e.Day.Date.AddDays(6).Month <> CType(sender, Calendar).VisibleDate.Month Then
Dim lit As New Literal
lit.Text = "<script id='" & e.Day.Date.Ticks.ToString & "'>window.setTimeout('document.getElementById(\'" & e.Day.Date.Ticks.ToString & "\').parentNode.parentNode.style.display=\'none\'',50);</script>"
e.Cell.Controls.Add(lit)
End If
End If
End SubPrivate Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
If e.Day.Date.Month <> CType(sender, Calendar).VisibleDate.Month Then
'e.Cell.Text = "N/A" 'Try just writing in the cell here.
e.Cell.Style("display") = "none"
'or use Ca8msm's line here. Both work.
'e.Cell.Controls.RemoveAt(0)
End If
End Sub