Как сделать вкладку для перемещения окна приложения HTA ​​в VBScript?

Question

Я играю с приложениями HTA, я запускаю программу для устройства USB.

У меня есть caption, установленный на "no", так что я могу сделать плоское приложение пользовательского интерфейса. Поскольку я отключил подпись, у меня нет бара, чтобы перемещать окно.

Я пробовал всевозможные вещи, но не могу понять это. Я хочу небольшую вкладку в нижнем правом углу, чтобы переместить окно вокруг экрана. Не как квадрат, а треугольник, чтобы поместиться в углу. Кто-нибудь может мне с этим помочь?

Answer 1

Вот простой скрипт, который перемещает окно.

window.onload = function() { 
    var grip = document.getElementById('grip'), 
     oX, oY, 
     mouseDown = function (e) { 
      if (e.offsetY + e.offsetX < 0) return; 
      oX = e.screenX; 
      oY = e.screenY; 
      window.addEventListener('mousemove', mouseMove); 
      window.addEventListener('mouseup', mouseUp); 
     }, 
     mouseMove = function (e) { 
      window.moveTo(screenX + e.screenX - oX, screenY + e.screenY - oY); 
      oX = e.screenX; 
      oY = e.screenY; 
     }, 
     gripMouseMove = function (e) { 
      this.style.cursor = (e.offsetY + e.offsetX > -1) ? 'move' : 'default'; 
     }, 
     mouseUp = function (e) { 
      window.removeEventListener('mousemove', mouseMove); 
      window.removeEventListener('mouseup', mouseUp); 
     }; 
    grip.addEventListener('mousedown', mouseDown); 
    grip.addEventListener('mousemove', gripMouseMove); 
} 

HTML, CSS &

<div id="grip"></div> 

#grip { 
    position: fixed; 
    bottom: 0px; 
    right: 0px; 
    border-bottom: 25px solid #ff0000; 
    border-left: 25px solid transparent; 
} 

Обратите внимание, что только видимая часть #grip является border-bottom из div.