VBScript attachEvent 메서드를 사용한 배경색 변경 예제

클릭하면 배경색이 변경하는 SPAN

텍스트를 클릭하면 배경색이 변하는 VBScript에서 attachEvent 메서드를 사용한 예제.

<SCRIPT language="VBS">
function setupEventHandler()
  set fpchgBackground=getRef("chgBackground")
  call mySpan.attachEvent("onclick", fpchgBackground)
  set backBackground=getRef("returnBackground")
  call myBut.attachEvent("onclick", backBackground)
end function
function chgBackground()
  document.bgColor="yellow"
end function
function returnBackground()
  document.bgColor=""
end function
</SCRIPT>
<STYLE>
.code {font-size:9pt;color:026;font-family:굴림;background:#dff;border:solid 1 #aea;}
.method { background:#ffeeee;color:#a42;padding-left:3px;padding-right:3px;font-weight:bold;}
</STYLE>
</HEAD>

<BODY onload="setupEventHandler()" language="VBS" style="padding:1em;">
<DIV style="border:solid 1 gray;margin:1em;padding:1em;background:efe">
<DIV title="결과" style="border:solid 1 blue;padding:1em">
<SPAN id="mySpan"
  style="cursor:hand;border:solid 1 blue;padding:5;background:eff">클릭하면 배경색이 변경하는 SPAN</SPAN><BR>
<BUTTON id="myBut" style=margin:2px;margin-top:9px>클릭하면 원상 복귀</BUTTON>
</DIV>
</BODY>
</HTML>