position souris en scroll
Bonjour,
Mon probléme est le suivant: pour mettre en place des meubles sur un plan d'architecte, je fais déplacer un meuble sur un plan, le VBScript me donnes les coordonnées de la souris.
Il sagit d'un outil ne servant qu'a moi, donc pour IE uniquement.
Ma question est la suivante:
Le plan étant plus haut que l'écran, lorsque je place un meuble en bas, il y a scroll et ça fausse tout, le meuble ne suit plus la souris, mais est plus haut
en fonction du scroll.
Pourriez vous m'aider a aranger cela, merci
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
<HTML><BODY bgColor=#ffffff>
<DIV id=jaune style="POSITION: absolute; TOP: 700px;LEFT:1500px;Z-INDEX: 95">
</DIV>
<IMG src="lavarenne.jpg" style="LEFT: 0px;
POSITION: absolute; TOP: 0px;Z-INDEX: 2">
<IMG id=Limage src="bureau_jp.jpg" style="LEFT: 0px;
POSITION: absolute; TOP: 0px;Z-INDEX: 5">
<SCRIPT language=VBScript>
public w,nx,ny,xm,ym,xx,flag
Set w=document.body
sub window_onload()
w.bgcolor="#ffffff"
w.style.cursor="crosshair"
end sub
sub document_onmousemove()
xm = window.event.clientX
ym = window.event.clientY
Limage.style.pixeltop=ym
Limage.style.pixelleft=xm
jaune.innerHTML="<FONT COLOR=#ff00ff><H3>" & xm & " " & ym
End Sub
</SCRIPT></BODY></HTML> |
