VBScript Sub子过程定义快捷键
说 明
本文介绍一个用VBScript Sub子过程定义快捷键的实例。
通常，浏览图像集时，要查看下（上）一张图像或回到图像缩微目录页，需要单击有关链接标志。这样做较麻烦，因为，一旦移动滚动条，链接标志的位置更改后，需要移动鼠标到该位置。
利用VBScript Sub子过程，设置快捷键后，只需单击相应的快捷键，即可查看到下（上）一张图像或回到图像缩微目录页。
Sub子过程代码：
<script language="VBScript">
sub document_onkeyUp
if window.event.keyCode=16 then
if tmp=3 then exit sub
document.getElementById("up").click:tmp=3
end if
if window.event.keyCode=17 then
if tmp=1 then exit sub
document.getElementById("next").click:tmp=1
end if
if window.event.keyCode=13 then
if tmp=2 then exit sub
document.getElementById("back").click:tmp=2
end if
end if
end sub
</script>
提示：上述代码中，设置了三个快捷键:
⑴Ctrl（单击，显示下一张）、⑵Shift（单击，显示上一张）、⑶Enter（单击，回到图像缩微目录页）。
定义快捷键
定义快捷键，就是设定按那个快捷键时，调用那个Sub子过程。
本例，是在超链接处加入代码：<span id=up>……</span>。如，
在“<a href="../web/PICT0437_JPG.htm">前一个</a> ”中，加入下述红色标注的代码。
<a href="../web/PICT0437_JPG.htm"><span
id=up>前一个</span></a>（按Shift）
上述红色代码的功能是，用户按快捷键Shift，调用相应的Sub子过程。结果是跳转到显示下一幅图像的网页。
实 例
实例：本网站《数码作品》栏目，“数码习作”第一集有关网页。
需要查看原代码的用户，打开有关网页（如，http://www.52wang.net/photo/personal/no1/web/IMG_4802_JPG.htm）后，单击浏览器菜单“查看”·“源文件”，然后在记事本中查看。
主页
｛其它｝ |
