TạomộtPop-upCanlendar(ASP.NET,VB.NET) Bạn sử dụng Calender Control và Panel Control. Panel Control được sử dụng để tạo hiệu ứng float trên trang. Bằng cách đặt calendar control trong Panel Control, bạn có thể thể dễ dàng xác định vị trí và thời điểm hiển thị Panel Control. Tạo User Class Điều đầu tiên cần làm là tạomột tập tin class có chứa Panel và Calendar Server control. [popUpCalendar.ascx] <%@ Control Language=''vb'' AutoEventWireup=''false'' Codebehind=''popUpCalendar.ascx.vb'' Inherits=''CalendarExample.popUpCalendar'' %> <asp:panel id=''pnlCalendar'' style=''Z-INDEX: 101; LEFT: 0px; POSITION: absolute; TOP: 0px'' runat=''server'' Height=''86px'' Width=''145px''> <asp:Calendar id=''Calendar1'' runat=''server'' Height=''86'' Width=''145'' BackColor=''White'' BorderColor=''Black'' BorderStyle=''Solid'' NextMonthText=''<IMG src='monthright.gif' border='0'>'' PrevMonthText=''<IMG src='monthleft.gif' border='0'>''> <TodayDayStyle BackColor=''#FFFFC0''></TodayDayStyle> <DayStyle Font-Size=''8pt'' Font-Names=''Arial''></DayStyle> <DayHeaderStyle Font-Size=''10pt'' Font-Underline=''True'' Font-Names=''Arial'' BorderStyle=''None'' BackColor=''#E0E0E0''></DayHeaderStyle> <SelectedDayStyle Font-Size=''8pt'' Font-Names=''Arial'' Font-Bold=''True'' ForeColor=''White'' BackColor=''Navy''></SelectedDayStyle> <TitleStyle Font-Size=''10pt'' Font-Names=''Arial'' Font-Bold=''True'' ForeColor=''White'' BackColor=''Navy''></TitleStyle> <OtherMonthDayStyle ForeColor=''Gray''></OtherMonthDayStyle> </asp:Calendar> </asp:panel> Sau đó là tạo code để phục vụ việc hiển thị [popUpCalendar.ascx.vb] Public Class popUpCalendar : Inherits System.Web.UI.UserControl Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar Protected WithEvents pnlCalendar As System.Web.UI.WebControls.Panel #Region '' Web Form Designer Generated Code '' 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Public Sub displayCalendar(ByVal sCalToolText As String, _ ByVal dSelectedDate As Date, _ ByVal sDateFieldName As String, _ ByVal iTop As Integer, _ ByVal iLeft As Integer) '************************************************************************ 'Hiển thị và dấu calendar '************************************************************************ If pnlCalendar.Visible = True And Calendar1.Attributes.Item(''selectedfield'') <> sDateFieldName Then hideCalendar() End If If pnlCalendar.Visible = False Then pnlCalendar.Style.Item(''top'') = iTop pnlCalendar.Style.Item(''left'') = iLeft If IsDate(dSelectedDate) Then Calendar1.SelectedDate = dSelectedDate Calendar1.VisibleDate = dSelectedDate Else Calendar1.SelectedDate = #12:00:00 AM# Calendar1.VisibleDate = Now End If Calendar1.ToolTip = sCalToolText Calendar1.Attributes.Item(''SelectedField'') = sDateFieldName pnlCalendar.Visible = True Else hideCalendar() End If End Sub Public Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged Dim txtDate As TextBox txtDate = Page.FindControl(Calendar1.Attributes.Item(''SelectedField'')) txtDate.Text = Calendar1.SelectedDate hideCalendar() End Sub Public Sub hideCalendar() pnlCalendar.Visible = False End Sub End Class Sau đây là ví dụ về cách sử dụng User Control trên [dispCalendar.aspx] <%@ Register TagPrefix=''sk'' TagName=''popUpCalendar'' src=''popUpCalendar.ascx''%> <%@ Page Language=''vb'' AutoEventWireup=''false'' Codebehind=''dispCalendar.aspx.vb'' Inherits=''CalendarExample.dispCalendar'' %> <!DOCTYPE HTML PUBLIC ''-//W3C//DTD HTML 4.0 Transitional//EN''> <HTML> <HEAD> <title>dispCalendar</title> <meta name=''GENERATOR'' content=''Microsoft Visual Studio.NET 7.0''> <meta name=''CODE_LANGUAGE'' content=''Visual Basic 7.0''> <meta name=''vs_defaultClientScript'' content=''JavaScript''> <meta name=''vs_targetSchema'' content=''http://schemas.microsoft.com/intellisense/ie5''> </HEAD> <body MS_POSITIONING=''GridLayout''> <form id=''Form1'' method=''post'' runat=''server''> <sk:popUpCalendar id=''myCalendar'' runat=''server'' /> <H3>Example Use of Custom Calendar Control</H3> <table> <tr> <td width=''75''> Start Date: </td> <td> <asp:TextBox id=''txtStartDate'' runat=''server'' Width=''86px''></asp:TextBox> </td> <td> <asp:ImageButton id=''btnStartDate'' runat=''server'' ImageUrl=''calendar.gif''></asp:ImageButton> </td> </tr> <tr> <td width=''75''> End Date: </td> <td> <asp:TextBox id=''txtEndDate'' runat=''server'' Width=''86px''></asp:TextBox> </td> <td> <asp:ImageButton id=''btnEndDate'' runat=''server'' ImageUrl=''calendar.gif''></asp:ImageButton> </td> </tr> </table> </form> </body> </HTML> [dispCalendar.aspx.vb] Public Class dispCalendar Inherits System.Web.UI.Page Protected WithEvents txtStartDate As System.Web.UI.WebControls.TextBox Protected WithEvents btnEndDate As System.Web.UI.WebControls.ImageButton Protected WithEvents btnStartDate As System.Web.UI.WebControls.ImageButton Protected WithEvents txtEndDate As System.Web.UI.WebControls.TextBox Protected WithEvents myCalendar As popUpCalendar #Region '' Web Form Designer Generated Code '' 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub 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 Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then 'Hide the calendar on initial page load myCalendar.hideCalendar() End If End Sub Private Sub btnStartDate_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnStartDate.Click Dim dSelDate As Date If IsDate(txtStartDate.Text) Then dSelDate = txtStartDate.Text End If myCalendar.displayCalendar(''Select a start date'', dSelDate, ''txtStartDate'', 59, 220) End Sub Private Sub btnEndDate_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnEndDate.Click Dim dSelDate As Date If IsDate(txtEndDate.Text) Then dSelDate = txtEndDate.Text End If myCalendar.displayCalendar(''Select an end date'', dSelDate, ''txtEndDate'', 86, 220) End Sub End Class . Tạo một Pop-up Canlendar (ASP. NET, VB. NET) Bạn sử dụng Calender Control và Panel Control. Panel Control được sử dụng để tạo hiệu ứng float. xác định vị trí và thời điểm hiển thị Panel Control. Tạo User Class Điều đầu tiên cần làm là tạo một tập tin class có chứa Panel và Calendar Server control.