璁╂帶浠惰幏鍙栫劍鐐瑰強(qiáng)璁劇疆杈撳叆娉曞叏瑙掑崐瑙掓垨鏃犳晥
鍋氬紑鍙戠殑榪囩▼涓?甯擱亣鍒頒竴浜涢〉闈㈣姹傚厜鏍囩殑榛樿浣嶇疆鍥哄畾鍦ㄦ煇鎺т歡涓?br />
鐪嬭搗鏉ュソ鍍忓緢闅?鍏跺疄瀹炵幇鏂規(guī)硶寰堢畝鍗?
JavaScript閲岄潰鏈夌幇鎴愮殑璁劇疆鐒︾偣鐨勬柟娉?br />
鍙互鍐欎竴涓畝鍗曠殑鍑芥暟鍛藉悕涓簊etFocus,鐒跺悗鍦≒age_Load閲岃皟鐢ㄥ氨鍙互浜?br />
姣斿闇瑕佽緗劍鐐圭殑鏄痬ytextbox鎺т歡
閭ｄ箞鍙Page_Load鍐欎笂Call setFocus(Me.mytextbox)灝卞彲浠ヤ簡(jiǎn)
涓嬮潰鏄疺B.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鍗婅璦畾
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
]]>