その３

ASP.NET AJAX

うーん、こっちのがよさそうだな



Option Strict On

Option Explicit On
Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports AjaxControlToolkit
<RequiredScript(GetType(FilteredTextBoxExtender))> _

Public Class カスタムコントロール

    Inherits TextBox

    Private Sub カスタムコントロール_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        Dim filter As New FilteredTextBoxExtender

        filter.Page = Me.Page

        filter.ID = Me.ID & "_" & GetType(FilteredTextBoxExtender).Name

        filter.TargetControlID = Me.ID

        filter.FilterType = FilterTypes.Numbers

        Me.Controls.Add(filter)
        Dim _scriptManager As ScriptManager = ScriptManager.GetCurrent(Me.Page)

        _scriptManager.RegisterExtenderControl(filter, Me)

        _scriptManager.RegisterScriptDescriptors(filter)

    End Sub

End Class