RollOver Button 1

66666666 · Apr 21, 2001

Hi Everyone
How can you make a Rollover Button in VBScript that has four functions.
it should do OnMouseOver , OnMouseOut , OnClick and now is the part that i can't find out : once you click the button it should stay to that image untill you click an other button.
here i did the 3 fuctions can someone Please tell me how to do the OnClick stay to he image function?
Thank you in advance

<html>
<Script Language="VBScript">
Sub Over()
document.images(0).src="Home1.bmp"
End Sub

Sub Out()
document.images(0).src="Home.bmp"
End Sub

Sub BClick()
document.images(0).src="Home2.bmp"
End Sub
</Script>
<body bgcolor="#000000" text="#FFFFFF">
<img src="Home.bmp" OnMouseOver="Over()" OnMouseOut="Out()" OnClick="BClick()">

</body>
</html>

GlennBSI · Apr 23, 2001

My guess is that you need a flag to be set once they've clicked so that the other functions won't do their thing:

Code:

<Script Language=&quot;VBScript&quot;>
Dim bClicked

 Sub Over()
  If not bBlicked = True Then
      document.images(0).src=&quot;Home1.bmp&quot;
  End If
End Sub

 Sub Out()
  If not bBlicked = True Then
      document.images(0).src=&quot;Home.bmp&quot;
  End If
End Sub

Sub BClick()
  document.images(0).src=&quot;Home2.bmp&quot;
  bClicked = True
End Sub
</Script>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

RollOver Button 1

66666666

Technical User

GlennBSI

Programmer

Similar threads

Part and Inventory Search

Sponsor