datepickercontrol.ascx.vb

C#语言制作asp.net网上商店的

Partial Class DatePickerControl
    Inherits System.Web.UI.UserControl

    Private _dateFormat As String = "YYYY-MM-DD"


    Public Property SelectedDate() As Date
        Get
            Dim value As Date = CDate(Request.Form(hfControlID.ClientID))
            ViewState(hfControlID.ClientID) = value.ToString("yyyy-MM-dd")
            sJavaScript.Text = String.Format("<script>DateInput('{2}', true ,'{0}','{1}')</script> ", _dateFormat, value.ToString("yyyy-MM-dd"), hfControlID.ClientID)
            Return value
        End Get
        Set(ByVal value As Date)
            Dim sDate As String = value.ToString("yyyy-MM-dd")
            sJavaScript.Text = String.Format("<script>DateInput('{2}', true ,'{0}','{1}')</script> ", _dateFormat, sDate, hfControlID.ClientID)
            ViewState(hfControlID.ClientID) = sDate
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim sDate As String = ViewState(hfControlID.ClientID)
            If Not IsNothing(sDate) Then
                sJavaScript.Text = String.Format("<script>DateInput('{2}', true ,'{0}','{1}')</script> ", _dateFormat, sDate, hfControlID.ClientID)
            Else
                sJavaScript.Text = String.Format("<script>DateInput('{1}', true ,'{0}')</script> ", _dateFormat, hfControlID.ClientID)
            End If
        End If

    End Sub

End Class