脚本控制焦点在输入框移动

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Javascript控制焦点移动</TITLE>
<SCRIPT LANGUAGE=vbscript>
<!--
function next_focus(text)
on error resume next 

dim tabIndex1 '下一个文本框的标志
tabIndex1=text.tabIndex +1

if window.event.keyCode =13 then
 for k=0 to document.all.length 
  if UCase(document.all (k).tagName) ="INPUT" then 
   set input1=document.all (k)
   If UCase(input1.Type) = "TEXT" Then '如果是可输入的文本框
    if input1.tabIndex = tabIndex1 then 
     num=num+1
     input1.focus()
     pass=true
     exit for
    end if 
   end if
  end if 
 next
end if

if Err.number > 0 then
'表示当前操作的已经是最后一个可以获取焦点的对象
'只有文本框、按钮类元素才有focus（）属性
'alert("异常发生")
'alert(Err.description )
'如果上面这行不注释，会提示异常发生：缺少对象
end if
end function 
//-->
</SCRIPT>
</HEAD>
<BODY>
<P><INPUT id=text1 name=text1 tabIndex=1 onkeyup=" next_focus(me)">第1个</P>
<P><INPUT id=text2 name=text2 tabIndex=3 onkeyup=" next_focus(me)">第3个</P>
<P><INPUT id=text4 name=text4 tabIndex=2 onkeyup=" next_focus(me)">第2个</P>
<P><INPUT id=text5 name=text5 tabIndex=5 onkeyup=" next_focus(me)">第5个</P>
<p><INPUT id=text3 name=text3 tabIndex=4 onkeyup=" next_focus(me)">第4个</p>
</BODY>
</HTML>
posted @ 2005-07-01 13:57  让心灵去旅行  阅读(728)  评论(0)    收藏  举报