VBScript rollover. Image swap
VBScript rollover using image swap. Two examples: several ways of applying VBScript on a web page.
Example 1
HTML code:
<a href="" onmouseover="onMouseOver()" onmouseout="onMouseOut()"><img src="out.gif" id="rollover" alt="" /></a>
VBScript code:
<script type="text/vbscript">
Sub onMouseOver()
rollover.src="over.gif"
End Sub
Sub onMouseOut()
rollover.src="out.gif"
End Sub
</script>
Note: an external VBScript script file may also be used. The code itself is the same (without <script> tag pair, surely). The file is linked to page very much like a JavaScript file would be:
<script type="text/vbscript" src="vbscript.vbs"></script>
Example 2
HTML code:
<a href=""><img src="out.gif" id="rollover2" alt="" /></a>
VBScript code (<script> tag including):
<script type="text/vbscript" event="OnMouseOver" for="rollover2">
rollover2.src="over.gif"
</script>
<script type="text/vbscript" event="OnMouseOut" for="rollover2">
rollover2.src="out.gif"
</script>
Browser support
- Windows
- Internet Explorer 4.0+