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 : Sélectionner tout - Visualiser dans une fenêtre à part
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>