让控件获取焦点及讄输入法全角半角或无效
做开发的q程?帔RC些页面要求光标的默认位置固定在某控g?br />
看v来好像很?其实实现Ҏ很简?
JavaScript里面有现成的讄焦点的方?br />
可以写一个简单的函数命名为setFocus,然后在Page_Load里调用就可以?br />
比如需要设|焦点的是mytextbox控g
那么只要Page_Load写上Call setFocus(Me.mytextbox)可以了
下面是VB.NET代码实例.C#的代码也差不?..
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半角a定
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無効且右寚w
ctrTemp.Attributes.Add("style", "ime-mode:disabled;text-align:right")
Case 5 'IME半角且右寚w
ctrTemp.Attributes.Add("style", "ime-mode:inactive;text-align:right")
End Select
End Sub
]]>