Imports System


Imports System.ComponentModel


Imports System.Configuration


Imports System.Web


Imports System.Web.UI


Imports System.Web.UI.HtmlControls


Imports System.Web.UI.WebControls


Imports IGERSoft.WebControls





Namespace IGERSoft.WebControls





    ' Use the Datepicker control to create a web control that behaves like MS DateTimePicker OCX. 


    ' The Size property specifices the width of the text box in number of characters, much like the HtmlInputText control. 


    ' If the size is not set, the width of the control will be the default width of HtmlInputText.


    ' The Datepicker Control implements databiding. The DataSource property specifies the data source to bind to. 





    <DefaultProperty("Text"), ToolboxData("<{0}:Datepicker runat=server></{0}:Datepicker>")> Public Class Datepicker


        Inherits HtmlContainerControl


        Implements IPostBackDataHandler





        ' The SelectedDateChanged event is raised when the value of Datepicker control 


        ' Change between posts to the server.


        Public Event SelectedDateChanged As EventHandler





#Region "Private Members"





        Private EventServerChange As Object


        Private _size As Integer = 20


        Private _datasource As Object = Nothing


        Private _text As String = String.Empty





#End Region





#Region "Public Properties"





        Public Property Text() As String


            Get


                Return _text


            End Get





            Set(ByVal Value As String)


                _text = Value


            End Set


        End Property





        ' This property is not supported for this control.					


        Public Overrides Property InnerText() As String


            Get


                Throw New NotSupportedException("'Datepicker' does not support the InnerText property.")


            End Get


            Set(ByVal Value As String)


                Throw New NotSupportedException("'Datepicker' does not support the InnerText property.")


            End Set


        End Property





        ' This property is not supported for this control.


        Public Overrides Property InnerHtml() As String


            Get


                Throw New NotSupportedException("'Datepicker' does not support the InnerHTML property.")


            End Get


            Set(ByVal Value As String)


                Throw New NotSupportedException("'Datepicker' does not support the InnerHTML property.")


            End Set


        End Property





        ' Gets or sets the width size of the text field. 


        Public Property Size() As Integer


            Get


                Return _size


            End Get


            Set(ByVal Value As Integer)


                _size = Value


                Me.Attributes("size") = _size.ToString()


            End Set


        End Property





        ' Gets or sets a value indicating whether an automatic postback to the server 


        ' will occur whenever the user changes the selected index.


        Public Property AutoPostBack() As Boolean


            Get


                Dim obj As Object = ViewState("AutoPostBack")


                Return IIf(obj Is Nothing, False, CBool(obj))


            End Get


            Set(ByVal Value As Boolean)


                ViewState("AutoPostBack") = Value


            End Set


        End Property





        ' Gets or sets the source of information to bind to the Datepicker control.


        Public Property DataSource() As Object


            Get


                Return _datasource


            End Get


            Set(ByVal Value As Object)


                If Not IsDate(Value) Then


                    Throw New ArgumentException("An invalid data source is being used for " + MyBase.ID + ". A valid data source must be of type date. ")


                End If


                _datasource = Value


            End Set


        End Property





#End Region





#Region "Public Constants"





        ' The namespace for the Datepicker.


        Public Const TagNamespace As String = "IGER"





        ' The Datepicker's tag name.


        Public Const DatepickerTagName As String = "Datepicker"





        ' The Datepicker default client location


        Public Const DefaultCommonFilesRoot As String = "/webctrl_client/igersoft/"





#End Region





#Region "Internal Properties"





        ReadOnly Property RenderedNameAttribute() As String


            Get


                Return Me.UniqueID


            End Get


        End Property





#End Region





#Region "Render Methods"





        Private Sub Datepicker_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender


            If Not MyBase.Page Is Nothing Then


                MyBase.Page.RegisterRequiresPostBack(Me)


            End If


        End Sub





        Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)


            Me.RenderBeginTag(writer)


            Me.RenderChildren(writer)


            Me.RenderEndTag(writer)


        End Sub





        Protected Overrides Sub RenderBeginTag(ByVal writer As System.Web.UI.HtmlTextWriter)


            writer.Write("<?XML:NAMESPACE PREFIX=""" & TagNamespace & """ />")


            writer.WriteLine()


            writer.Write("<?IMPORT NAMESPACE=""" & TagNamespace & """ IMPLEMENTATION=""" & _


                Me.GetFilePath() & "datepicker.htc" & """ />")


            writer.WriteLine()


            writer.WriteBeginTag(TagNamespace + ":" + DatepickerTagName)


            Me.RenderAttributes(writer)


            writer.Write(">")


        End Sub





        Protected Overrides Sub RenderAttributes(ByVal writer As System.Web.UI.HtmlTextWriter)


            If Not MyBase.ID Is Nothing Then


                writer.WriteAttribute("id", MyBase.ClientID)


                writer.WriteAttribute("name", Me.UniqueID)


            End If





            If Me.AutoPostBack Then


                Dim strOnChangeCmd As String = Me.Attributes("onselecteddatechanged")





                If Not strOnChangeCmd Is Nothing Then


                    Me.Attributes("onselecteddatechanged") = IIf(strOnChangeCmd.EndsWith(";"), strOnChangeCmd + Page.GetPostBackEventReference(Me, String.Empty) + ";", strOnChangeCmd + ";" + Page.GetPostBackEventReference(Me, String.Empty))


                Else


                    Me.Attributes.Add("onselecteddatechanged", Page.GetPostBackEventReference(Me, String.Empty))


                End If


            End If





            Dim strWidth As String = Me.Attributes("width")


            Dim strFirstDayOfWeek As String = Me.Attributes("FirstDayOfWeek")


            Dim strDaynameLetters As String = Me.Attributes("daynameLetters")


            Dim strDaynamesShort As String = Me.Attributes("daynamesShort")


            Dim strDaynamesLong As String = Me.Attributes("daynamesLong")


            Dim strMonthnamesShort As String = Me.Attributes("monthnamesShort")


            Dim strMonthnamesLong As String = Me.Attributes("monthnamesLong")


            Dim strFormat As String = Me.Attributes("format")


            Dim strImageLocation As String = Me.GetFilePath() & "dpickerimages/"





            If Not strWidth Is Nothing Then


                writer.WriteAttribute("width", strWidth)


            End If





            If Not strFormat Is Nothing Then


                writer.WriteAttribute("format", strFormat)


            End If





            ' Set value


            If Not Me.Text Is Nothing Then


                If Me.Text.Length > 0 Then


                    writer.WriteAttribute("value", Me.Text)


                End If


            End If





            ' Image Loaction


            writer.WriteAttribute("ImageLocation", strImageLocation)





            Me.Attributes.Render(writer)


        End Sub





        Protected Overrides Sub RenderEndTag(ByVal writer As System.Web.UI.HtmlTextWriter)


            writer.WriteEndTag(TagNamespace + ":" + DatepickerTagName)


        End Sub





#End Region





#Region "Post Back Data and Event Handler"





        Public Function LoadPostData(ByVal postDataKey As String, ByVal postCollection As System.Collections.Specialized.NameValueCollection) As Boolean Implements System.Web.UI.IPostBackDataHandler.LoadPostData


            Dim presentValue As String = Me.Text


            Dim postedValue As String = postCollection(postDataKey)


            If Not presentValue.Equals(postedValue) Then


                Me.Text = postedValue


                Return True


            End If


            Return False


        End Function





        Public Sub RaisePostDataChangedEvent() Implements System.Web.UI.IPostBackDataHandler.RaisePostDataChangedEvent


            Me.OnSelectedDateChanged(EventArgs.Empty)


        End Sub





        Protected Overrides Sub LoadViewState(ByVal savedState As Object)


            If Not savedState Is Nothing Then


                Me.Text = savedState


            End If


        End Sub





        Protected Overrides Function SaveViewState() As Object


            Dim savedState = New Object()


            savedState = Me.Text


            Return savedState


        End Function





#End Region





#Region "Selected Date Changed Event Handler"





        ' Invokes delegates registered with the change event.


        Protected Overridable Sub OnSelectedDateChanged(ByVal e As EventArgs)


            RaiseEvent SelectedDateChanged(Me, e)


        End Sub





#End Region





#Region "Private Methods"





        Private Function GetFilePath() As String


            ' Look at the current configuration for the path


            Dim strFilePath As String = ConfigurationSettings.AppSettings("IGERWEBCONTORLS_COMMONFILEPATH")


            If Not strFilePath Is Nothing Then


                If strFilePath.Length > 0 Then


                    If Right(strFilePath, strFilePath.Length - 1) <> "/" Then


                        strFilePath &= "/"


                    End If


                End If


                Return strFilePath


            End If





            Return DefaultCommonFilesRoot


        End Function





#End Region





    End Class


End Namespace