WebコントロールにJavaScriptのイベントを追加 - restinpiece @ ウィキ

   'WebコントロールにJavaScriptのイベントを追加する
    Private Sub IventhandleSet(ByVal ctrl As Control, ByVal IventHandle As String)
 
        'IventHandleに与える引数
        'onblur(フォームがフォーカスを失う際に起動)
        'onchange フォームの内容が変更されフォーカスを失った際に起動 select、text、textarea 
        'onclick フォームがクリックされた際に起動 button、checkbox、radio、link、reset、submit 
        'onfocus フォームがフォーカスされた際に起動 select、text、textarea 
        'onload ページがロードされた際に起動 body要素内で定義する 
        'onmouseOver マウスカーソルが重なった際に起動 link 
        'onselect フォーム内でテキストが選択された際に起動 text、textarea 
        'onsubmit submit（提出）された際に起動 form 
        'onrest reset（取り消し）された際に起動 form 
        'onunload()
 
        Dim exeEvent As String
        exeEvent = "alert('イベント起動')"
 
        Dim script As String = _
        vbCrLf + "<SCRIPT language='JavaScript'>" + vbCrLf + _
        "document.getElementById('" + ctrl.ClientID + "')." + IventHandle + " = function (){" + vbCrLf + _
        exeEvent + vbCrLf + _
        "}" + vbCrLf + _
        "</SCRIPT>" + vbCrLf
 
        RegisterStartupScript("setfocus", script)
 
    End Sub