Option Strict On
Imports System.ComponentModel
Imports System.Web.UI
<DEFAULTPROPERTY("Text"), VALIDATIONPROPERTY("Text"),
TOOLBOXDATA("<{0}:VenusDateTextBox runat=server>")>
Public Class VenusDateTextBox _
Inherits System.Web.UI.WebControls.TextBox _
Implements INamingContainer
#Region " Member Variables "
Private Const DateIncludeScriptKey As String = "DateCurrentDateInsertScript"
' The script block that is rendered to insert the Private I Date.
Private Const DateCurrentDateInsertScript As String = ControlChars.CrLf & _
"<SCRIPT LANGUAGE=""JAVASCRIPT"">" & ControlChars.CrLf & _
"<!--" & ControlChars.CrLf & _
"function InsertCurrentDate(VenusDateControl)" & ControlChars.CrLf & _
" {" & ControlChars.CrLf & _
" var curDate = new Date();" & ControlChars.CrLf & _
" var formattedDate = curDate.getMonth() + '/'" & _
" + curDate.getDate() + '/' + curDate.getFullYear();" _
& ControlChars.CrLf & _
" document.all.item(VenusDateControl).value = formattedDate;" _
& ControlChars.CrLf & _
" }" & ControlChars.CrLf & _
"// -->" & ControlChars.CrLf & _
"</SCRIPT>"
#End Region
#Region " Overrides "
Protected Overrides Sub AddAttributesToRender(ByVal_
writer As System.Web.UI.HtmlTextWriter)
MyBase.AddAttributesToRender(writer)
writer.AddAttribute("ondblclick", _
"InsertCurrentDate('" & ClientID & "');")
End Sub
Protected Overrides Sub OnPreRender(ByVal e As System.EventArgs)
MyBase.OnPreRender(e)
RegisterVenusDateIncludeScript()
End Sub
#End Region
#Region " Private Methods "
Private Sub RegisterVenusDateIncludeScript()
Dim location As String = Nothing
If Not Page.IsClientScriptBlockRegistered(DateIncludeScriptKey) Then
' Create the client script block.
Page.RegisterClientScriptBlock(DateIncludeScriptKey,_
DateCurrentDateInsertScript)
End If
End Sub
#End Region
End Class