利用虚函数响应usercontrol事件

 usercontrol里面可以入力数据或者选择不同职员，根据不同的event，

需要在画面中进行相应处理更新画面。

usercontrol是放在masterpage中的，画面调用masterpage。

实现方式如下

SyokuinListArea.ascx.vb

    Protected Sub DummyShikyuNengetsuKubunChangedButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim tse As New TaisyoSyokuinEventArgs

        tse.ShikyuNengetsu = DummyShikyuNengetsu.Text

        tse.ShikyuKubun = DummyShikyuKubun.Text

        tse.SyokuinBango = DummySyokuinBango.Text

        Dim windowID = ""

        ' セッションにユーザコントロール情報を格納する

        Session.Add(windowID + ". 個人情報メンテ画面（共通）" , tse)

        ' ベースクラス中のOverrideableメソッドを通して、処理メソッドを呼び出す。

        CType(Me.Page, PRBase).GetUserControlsEventBase()

    End Sub

PRBase.vb

        ''' <summary>

        ''' ユーザコントロールからイベント処理

        ''' </summary>

        ''' <remarks></remarks>

        Public Sub GetUserControlsEventBase()

            GetUserControlsEvent()

        End Sub

        Protected Overridable Sub GetUserControlsEvent()

        End Sub

QYO1250.vb

    Protected Overrides Sub GetUserControlsEvent()

        Dim tse As TaisyoSyokuinEventArgs

        tse = Session(". 個人情報メンテ画面（共通）" )

        MsgBox(tse.ShikyuNengetsu + " " + tse.ShikyuKubun + " " + tse.SyokuinBango)

    End Sub