Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' ページを初期化するユーザー コードをここに挿入します。
        If Not Page.IsPostBack Then
            'IMEを半角に設定する
            setIME(Me.Page, Me.txt_code, 1)
            setIME(Me.Page, Me.txt_date, 1)

        End If
        End Sub

    Public Sub setIME(ByRef pgTemp As Page, _
                      ByRef ctrTemp As WebControl, _
                      ByVal intMode As Integer)
        Select Case intMode
            Case 0 'IME無効
                ctrTemp.Attributes.Add("style", "ime-mode:disabled")
            Case 1 'IME半角
                ctrTemp.Attributes.Add("style", "ime-mode:inactive")
            Case 2 'IME全角
                ctrTemp.Attributes.Add("style", "ime-mode:active")
            Case 3 'IME自動
                ctrTemp.Attributes.Add("style", "ime-mode:auto")
            Case 4 'IME無効且つ右詰め
                ctrTemp.Attributes.Add("style", "ime-mode:disabled;text-align:right")
            Case 5 'IME半角且つ右詰め
                ctrTemp.Attributes.Add("style", "ime-mode:inactive;text-align:right")
        End Select
    End Sub