- 締切済み
セルにマウスが
下記はセルにマウスが通過と離れた時に背景色を変える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\')\">
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- chamiguri
- ベストアンサー率17% (3/17)
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>