Public Sub ChangeEnterReturnToNextFocus(ByVal ctls As System.Web.UI.ControlCollection)
Dim ctl As Control 'コントロール
Dim wctl As WebControl 'Webコントロール
On Error Resume Next
'コントロールの活性設定
For i As Integer = 0 To ctls.Count - 1
ctl = ctls.Item(i)
If Not ctl Is Nothing Then
If Not ctl.ID Is Nothing Then
wctl = ctl
If ctl.Controls.Count = 0 Then
If TypeOf wctl Is TextBox And Not wctl.ToString.EndsWith("CodeTextBox") _
And Not wctl.ToString.EndsWith("EventTextBox") Then
wctl.Attributes.Add("onkeydown", _
"javascript:if (event.keyCode==13) window.event.returnValue = false;")
ElseIf TypeOf wctl Is RadioButton Or TypeOf wctl Is RadioButtonList Then
wctl.Attributes.Add("onkeydown", _
"javascript:if (event.keyCode==13) window.event.returnValue = false;")
ElseIf TypeOf wctl Is CheckBox Or TypeOf wctl Is CheckBoxList Then
wctl.Attributes.Add("onkeydown", _
"javascript:if (event.keyCode==13) window.event.returnValue = false;")
ElseIf TypeOf wctl Is DropDownList Then
wctl.Attributes.Add("onkeydown", _
"javascript:if (event.keyCode==13) window.event.returnValue = false;")
End If
End If
End If
If ctl.Controls.Count > 0 Then
ChangeEnterReturnToNextFocus(ctl.Controls)
End If
End If
Next
End Sub