'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// '// 용 도 : 팝업을 마우스로 이동 시킴 '// 사용법 : Body에 onmouseup="PopMouseUp(window.event)" onmousemove="PopMouseMove(window.event)" 추가. '// 마우스다운부분 'onmousedown="PopMouseDown(window.event)" style="CURSOR: move" 추가. '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////// dim g_Left, g_Top g_Left = 0 g_Top = 0 g_Left02 = 0 g_Top02 = 0 g_Left03 = 0 g_Top03 = 0 function PopMouseDown01(e) g_Left = e.clientx g_Top = e.clienty end function function PopMouseDown02(e) g_Left02 = e.clientx g_Top02 = e.clienty end Function function PopMouseDown02(e) g_Left03 = e.clientx g_Top03 = e.clienty end Function function PopMouseMove01(e) if g_Left < 1 or g_Top < 1 then exit function dim m_gap, m_Left, m_Top m_gap = g_Left - replace(self.document.all.item("PopPanel01").style.left,"px","") m_Left = e.clientx - m_gap m_gap = g_Top - replace(self.document.all.item("PopPanel01").style.top,"px","") m_Top = e.clienty - m_gap '왼쪽과 오른쪽에 자동 붙기 if m_Left < 1 then m_Left = -20 if m_Top < 20 then m_Top = 0 self.document.all.item("PopPanel01").style.left = m_Left & "px" self.document.all.item("PopPanel01").style.top = m_Top & "px" g_Left = e.clientx g_Top = e.clienty end function function PopMouseUp01(e) if g_Left < 1 or g_Top < 1 then exit function dim m_gap, m_Left, m_Top m_gap = g_Left - replace(self.document.all.item("PopPanel01").style.left,"px","") m_Left = e.clientx - m_gap m_gap = g_Top - replace(self.document.all.item("PopPanel01").style.top,"px","") m_Top = e.clienty - m_gap '왼쪽과 오른쪽에 자동 붙기 if m_Left < 1 then m_Left = -20 if m_Top < 20 then m_Top = 0 self.document.all.item("PopPanel01").style.left = m_Left & "px" self.document.all.item("PopPanel01").style.top = m_Top & "px" g_Left = 0 g_Top = 0 end Function function PopMouseMove02(e) if g_Left02 < 1 or g_Top02 < 1 then exit function dim m_gap, m_Left, m_Top m_gap = g_Left02 - replace(self.document.all.item("PopPanel02").style.left,"px","") m_Left = e.clientx - m_gap m_gap = g_Top02 - replace(self.document.all.item("PopPanel02").style.top,"px","") m_Top = e.clienty - m_gap '왼쪽과 오른쪽에 자동 붙기 if m_Left < 1 then m_Left = -20 if m_Top < 20 then m_Top = 0 self.document.all.item("PopPanel02").style.left = m_Left & "px" self.document.all.item("PopPanel02").style.top = m_Top & "px" g_Left02 = e.clientx g_Top02 = e.clienty end Function function PopMouseUp02(e) if g_Left02 < 1 or g_Top02 < 1 then exit function dim m_gap, m_Left, m_Top m_gap = g_Left02 - replace(self.document.all.item("PopPanel02").style.left,"px","") m_Left = e.clientx - m_gap m_gap = g_Top02 - replace(self.document.all.item("PopPanel02").style.top,"px","") m_Top = e.clienty - m_gap '왼쪽과 오른쪽에 자동 붙기 if m_Left < 1 then m_Left = -20 if m_Top < 20 then m_Top = 0 self.document.all.item("PopPanel02").style.left = m_Left & "px" self.document.all.item("PopPanel02").style.top = m_Top & "px" g_Left02 = 0 g_Top02 = 0 end function function PopMouseMove03(e) if g_Left03 < 1 or g_Top03 < 1 then exit function dim m_gap, m_Left, m_Top m_gap = g_Left03 - replace(self.document.all.item("PopPanel03").style.left,"px","") m_Left = e.clientx - m_gap m_gap = g_Top03 - replace(self.document.all.item("PopPanel03").style.top,"px","") m_Top = e.clienty - m_gap '왼쪽과 오른쪽에 자동 붙기 if m_Left < 1 then m_Left = -20 if m_Top < 20 then m_Top = 0 self.document.all.item("PopPanel03").style.left = m_Left & "px" self.document.all.item("PopPanel03").style.top = m_Top & "px" g_Left03 = e.clientx g_Top03 = e.clienty end Function function PopMouseUp03(e) if g_Left03 < 1 or g_Top03 < 1 then exit function dim m_gap, m_Left, m_Top m_gap = g_Left03 - replace(self.document.all.item("PopPanel03").style.left,"px","") m_Left = e.clientx - m_gap m_gap = g_Top03 - replace(self.document.all.item("PopPanel03").style.top,"px","") m_Top = e.clienty - m_gap '왼쪽과 오른쪽에 자동 붙기 if m_Left < 1 then m_Left = -20 if m_Top < 20 then m_Top = 0 self.document.all.item("PopPanel03").style.left = m_Left & "px" self.document.all.item("PopPanel03").style.top = m_Top & "px" g_Left03 = 0 g_Top03 = 0 end function