Перемещение объекта

Возьмите мышкой объект и переместите его

Программные коды для создания HTML-страницы

<HTML>
 <HEAD>
  <TITLE>Перемещение объекта</TITLE>
   <STYLE type="text/css">
img {position: absolute; top:60; width:63; height:55}
#dr {font-family:Arial; Size:12pt; Color:Navy}
#za {font-size:12pt}
</STYLE>
  <SCRIPT language="vbscript">
Dim sf
Dim sf_left
Dim sf_top
Dim im
          Sub window_onload                ' При загрузке формы задаем начальные параметры
       sf_left=sf.offsetLeft
       sf_top=sf.offsetTop
          End Sub
     Sub document_onmousedown()            ' Нажал на левую кнопку мыши
         Set im = window.event.srcElement  ' Присвоил переменной im значение объекта
     End Sub
' Подпрограмма перехвата движения мыши и перемещения объекта
      Sub document_onmousemove()
Dim ob_left, ob_top
      if (window.event.button = 1) then  ' Если кнопка мыши нажата, то проверяю имя удерживаемого объекта
              ob_left = window.event.x
              ob_top = window.event.y
              im.style.pixelLeft = ob_left - (im.offsetWidth/2)    ' Вычисляю координату середины объекта
              im.style.pixelTop = ob_top - (im.offsetHeight/2)
              window.event.returnValue = false     ' Для плавного движения по экрану необходимо установить false
       End if
    End Sub
  </SCRIPT>
</HEAD>
   <BODY> 
      <P Align=center id=dr>
           Возьмите мышкой объект и переместите его<BR>
            <img src="Images/book1.gif" name="R1">
       </P>
   
<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>