BoyLee's Blog

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       ' ページを初期化するユーザー コードをここに挿入します。
       Call setFocus(Me.txt_code)
       End Sub

   Private Sub setFocus(ByVal ctrl As Control)
       Dim script As String
       script = "<script language='JavaScript'>" & _
                "        document.getElementById('" & ctrl.ClientID & "').focus();" & _
                "</script>"
       RegisterStartupScript("setfocus", script)
   End Sub

      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