select 按键提示

xinlingwuyu

浏览: 135685 次
性别:
来自: 北京

最近访客更多访客>>

enock

hackWang

a4635110

安然格思

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

javascript学习

VBScript JavaScript HTML F#J#

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<script type="text/javascript">
  var currentIndex = 0;
  var currentChar = '';
function CharPointItem()
{
  //可以改成event.srcElement
  var ddl = document.getElementById("ddlItem");
  var itemCount = ddl.options.length;
  var selectStr = '';
  var laseIndex = currentIndex;
  var pressKey = String.fromCharCode(window.event.keyCode);
  if(itemCount <=1 || IsChar(pressKey)== false)
   return;
  if(pressKey != currentChar)
   currentIndex = 0;
  for(var i =currentIndex;i<itemCount;i++)
        {
            if(getpy(ddl.options[i].text.charAt(0))== pressKey)
            {
                currentChar = pressKey;
                ddl.selectedIndex = i;
                currentIndex = i + 1;
                break;
            }
        }
        currentIndex = laseIndex == currentIndex?0:currentIndex;
    }

    function IsChar(str)
    {
  t   =   str.charAt(0).toLowerCase();
  if(t <= "z" && t >= "a")
   return true;
  else
   return false;
}
</script>

<script type="text/vbscript">
<!--
function getpychar(char)
  tmp=65536+asc(char)
  if(tmp>=45217 and tmp<=45252) then
  getpychar= "A"
  elseif(tmp>=45253 and tmp<=45760) then
  getpychar= "B"
  elseif(tmp>=45761 and tmp<=46317) then
  getpychar= "C"
  elseif(tmp>=46318 and tmp<=46825) then
  getpychar= "D"
  elseif(tmp>=46826 and tmp<=47009) then
  getpychar= "E"
  elseif(tmp>=47010 and tmp<=47296) then
  getpychar= "F"
  elseif(tmp>=47297 and tmp<=47613) then
  getpychar= "G"
  elseif(tmp>=47614 and tmp<=48118) then
  getpychar= "H"
  elseif(tmp>=48119 and tmp<=49061) then
  getpychar= "J"
  elseif(tmp>=49062 and tmp<=49323) then
  getpychar= "K"
  elseif(tmp>=49324 and tmp<=49895) then
  getpychar= "L"
  elseif(tmp>=49896 and tmp<=50370) then
  getpychar= "M"
  elseif(tmp>=50371 and tmp<=50613) then
  getpychar= "N"
  elseif(tmp>=50614 and tmp<=50621) then
  getpychar= "O"
  elseif(tmp>=50622 and tmp<=50905) then
  getpychar= "P"
  elseif(tmp>=50906 and tmp<=51386) then
  getpychar= "Q"
  elseif(tmp>=51387 and tmp<=51445) then
  getpychar= "R"
  elseif(tmp>=51446 and tmp<=52217) then
  getpychar= "S"
  elseif(tmp>=52218 and tmp<=52697) then
  getpychar= "T"
  elseif(tmp>=52698 and tmp<=52979) then
  getpychar= "W"
  elseif(tmp>=52980 and tmp<=53640) then
  getpychar= "X"
  elseif(tmp>=53689 and tmp<=54480) then
  getpychar= "Y"
  elseif(tmp>=54481 and tmp<=62289) then
  getpychar= "Z"
  else '如果不是中文，则不处理
  getpychar=char
  end if
end function

function getpy(str)
  for i=1 to len(str)
   getpy=getpy&getpychar(mid(str,i,1))
  next
end function
//-->
</script>
<select ID="ddlItem" onKeyDown="CharPointItem()">
  <option value="">我们的世界</option>
  <option value="">您好</option>
  <option value="">小高</option>
  <option value="">才</option>
  <option value="">eeee</option>
</select>
</BODY>
</HTML>

分享到：

QQ窗口震动效果 | 输出1,2,2,3,4,5的所有排列组合,4不能在第 ...

2008-08-28 00:06
浏览 1480
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论