AGAMES 討論區

標題: 滑鼠帶彈性圖 [打印本頁]

---

作者: dlalden    時間: 2008-11-8 18:21:31     標題: 滑鼠帶彈性圖

第 5 行　stringcolor="white"　是線之顏色
第 6 行　ballsrc="圖片網址"　是圖片網址位置

1. <STYLE>
   
2. v\:* {BEHAVIOR: url(#default#VML)}
   
3. </STYLE>
   
4. <SCRIPT language="JavaScript1.2">
   
5. var stringcolor="white"
   
6. var ballsrc="圖片網址"
   
7. if (document.all&&window.print){
   
8. document.write('<IMG id=Om style="LEFT: -10px; POSITION: absolute" src="'+ballsrc+'">')
   
9. ddx=0;ddy=0;PX=0;PY=0;xm=0;ym=0
   
10. OmW=Om.width/2;OmH=Om.height/2
    
11. }function Ouille(){
    
12. x=Math.round(PX+=(ddx+=((xm-PX-ddx)*3)/100))
    
13. y=Math.round(PY+=(ddy+=((ym-PY-ddy)*3-300)/100))
    
14. Om.style.left=x-OmW
    
15. Om.style.top=y-OmH
    
16. elastoc.to=x+","+y
    
17. elastoc.strokecolor=stringcolor
    
18. setTimeout("Ouille()",1)   
    
19. }function momouse(){
    
20. xm=window.event.x+5
    
21. ym=window.event.y+document.body.scrollTop+15
    
22. elastoc.from=xm+","+ym
    
23. }if(document.all&&window.print){
    
24. code="<v:line id=elastoc style='LEFT:0;POSITION:absolute;TOP:0' strokeweight='1.5pt'></v:line>"} else {
    
25. code="<v:group style='LEFT:-10;WIDTH:100pt;POSITION:absolute;TOP:0;HEIGHT:100pt' coordsize='21600,21600'><v:line id=elastoc style='LEFT:0;WIDTH:100pt;POSITION:absolute;TOP:0;HEIGHT:100pt' strokeweight='1.5pt'></v:line></v:group>"}
    
26. if(document.all&&window.print){
    
27. document.body.insertAdjacentHTML("afterBegin",code)
    
28. document.onmousemove=momouse
    
29. Ouille()}
    
30. </SCRIPT>
    

複製代碼

---

歡迎光臨 AGAMES 討論區 (http://forum.agames.hk/)

Powered by Discuz! X2