「WebコントロールにJavaScriptのイベントを追加」の編集履歴（バックアップ）一覧はこちら

「WebコントロールにJavaScriptのイベントを追加」(2008/07/01 (火) 16:29:07) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

   '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