[原创]用脚本控制Select的展开与折叠,或者说是下拉。

1.首先将焦点给Select
2.然后模拟按键Alt+↓。模拟按键是使用ActiveX控件来完成的。
代码如下:

<Object type="application/x-oleobject" id=Shell
classid="clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></Object>

<SELECT id=cboSort >
<OPTION value=None selected>None</OPTION>
<OPTION value=col1>序号</OPTION>
<OPTION value=col2>抄表册</OPTION>
<OPTION value=col3>抄表册名称</OPTION>
<OPTION value=col4>抄表册性质</OPTION>
<OPTION value=col5>抄表周期</OPTION>
<OPTION value=col6>管理部门</OPTION>
<OPTION value=col7>变压器组号</OPTION>
<OPTION value=col8>变压器性质</OPTION>
<OPTION value=col9>抄表员代码</OPTION>
<OPTION value=col10>抄表员姓名</OPTION>
<OPTION value=col11>抄表列日</OPTION>
<OPTION value=col12>浮动天数</OPTION>
<OPTION value=col13>初始化标志</OPTION>
<OPTION value=col14>缴费天数</OPTION>
<OPTION value=col15>抄表方式</OPTION>
</SELECT>
<button οnclick="demo();">展开</button>

Js版
<script language= "JavaScript">
function demo(){
 cboSort.focus();
 var WshShell = new ActiveXObject("Wscript.Shell");
 try{
  WshShell.SendKeys("%{DOWN}");
 }
 catch(e){}  
 WshShell.Quit;  
}
</script>

js的<Object>版
<script language= "JavaScript">
function demo2(){
 cboSort.focus();
 Shell.SendKeys("%{DOWN}");
 Shell.Quit;  
}
</script>

VB版:
<script language="VBScript">
sub demo1()
  cboSort.focus()
         set WshShell = CreateObject("WScript.Shell")
         WshShell.SendKeys "%{DOWN}"
end   sub       
</script>

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值