• 締切済み

セルにマウスが

下記はセルにマウスが通過と離れた時に背景色を変えるPerlのコードです、通過したとき透明にしたいのですが、よろしくお願いします。 <SCRIPT LANGUAGE="JavaScript"> <!-- var evobj; function over(bg){ evobj=event.srcElement; if(evobj.tagName=="TR"||evobj.tagName=="TABLE"){ return } while(evobj.tagName!="TD"){ evobj=evobj.parentElement; } evobj.style.backgroundColor=bg; } function out(bg){ evobj.style.backgroundColor = bg; } //--> </SCRIPT> @bgcolor = qw(NAVY BLUE WHITE PINK); $bcolor = $bgcolor[int(rand($#bgcolor + 1))]; print "<TR onMouseOver=\"over(\'red\')\" onMouseOut=\"out(\'$bcolor\')\">

みんなの回答

  • chamiguri
  • ベストアンサー率17% (3/17)
回答No.1

htmlですが、サンプルにどうぞ! Perlは分からないのでごめんなさい。 <body onload="f()"> <script> function f(){ var table = document.getElementById("testTable"); var rows = table.getElementsByTagName("td"); for (i=0; i < rows.length; i++) { rows[i].onmouseover = function() { this.style.background='aqua';this.style.cursor='hand'; }; rows[i].onmouseout = function() { this.style.background='' }; } } //--> </script> <table id="testTable" width="400" border="1"> <tr> <td><br/></td> <td><br/></td> <td><br/></td> <td><br/></td> </tr> </table> </body>

関連するQ&A