how to extend the base functionality of standard web controls - by Venugopal Mallarapu

原创 2004年08月23日 15:50:00

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

ThinkPHP模板多层继承

帮朋友用ThinkPHP写一个网站,最近就碰到ThinkPHP模板不能多层继承的问题,就跟这里讲的问题一样:http://www.thinkphp.cn/topic/26853.html      ...
  • wangzuxi
  • wangzuxi
  • 2015年03月12日 09:26
  • 2392

android个人笔记之greendao初体验

一、.as配置环境 1.项目的gradle文件 buildscript { repositories { jcenter() mavenCentral(...
  • hunanqi
  • hunanqi
  • 2017年01月09日 15:50
  • 203

菜鸟学习bootstrap常用功能

bootstrap中文官网:http://v3.bootcss.com/components/
  • Q718330882
  • Q718330882
  • 2014年10月24日 17:01
  • 13813

在编译QT中出现The tslib functionality test failed!....的问题及解决办法

1、在编译QT的过程中出现的问题如下  The tslib functionality test failed!        You might need to modify the...
  • qingkongyeyue
  • qingkongyeyue
  • 2016年10月04日 15:00
  • 1902

前端开发神器WebStorm v2017.1 震撼发布,新版亮点抢先看!|附下载

近日Jetbrains旗下的前端开发IDE WebStorm 更新了2017.1版本,大量功能改进,一起来看看有哪些亮点吧,也欢迎下载最新版体验哦~ 【下载最新版WebStorm 2017.1】...
  • huidurelease
  • huidurelease
  • 2017年04月13日 16:54
  • 1976

html5知识学习之Video对象的属性autoplay,buffered,controls用法讲解

Video对象的属性大约有30多个,但是有很多是不支持主流浏览器,对于我们来说可以暂时不去学习,我会讲一下支持主流浏览器的属性给大家,今天讲在kphp框架网站中分享video对象的属性autoplay...
  • kphper
  • kphper
  • 2015年11月25日 12:07
  • 3432

每日学习心得:$.extend()方法和(function($){...})(jQuery)详解

2014-02-09 前言:     节后头两天上班,主要是调整工作状态。项目也不是很紧,趁着周末把年前遇到了一些关于JS和JQuery的一些问题给总结一下。主要是介绍JQuery的extend方...
  • xuemoyao
  • xuemoyao
  • 2014年02月09日 23:47
  • 42427

$.extend()的深拷贝和浅拷贝详细讲解

语法:jQuery.extend( [deep ], target, object1 [, objectN ] ) 描述: 将两个或更多对象的内容合并到第一个对象。 关于$.extend(...
  • fengsuiyingdong
  • fengsuiyingdong
  • 2017年03月15日 15:12
  • 460

jQuery extend方法以及插件编写

jQuery中的扩展方法extend是一个很重要的方法,我们可以利用这个方法编写我们自己的插件。 可以先看看这个方法的定义: jQuery.extend = jQuery.fn.extend...
  • xuzengqiang2
  • xuzengqiang2
  • 2014年02月14日 16:04
  • 953

HTML5—视频插入—video元素的属性、事件与方法

HTML5中video元素的属性、事件与方法
  • Jeason_liu
  • Jeason_liu
  • 2015年10月14日 23:46
  • 3960
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:how to extend the base functionality of standard web controls - by Venugopal Mallarapu
举报原因:
原因补充:

(最多只允许输入30个字)