如何在VBScript中制作一个标签来移动HTA应用程序的窗口？

Question

我正在玩HTA应用程序,我正在为USB设备制作程序启动器.

我有caption设置,"no"以便我可以制作一个平面的UI应用程序.因为我禁用了标题,所以我无法移动窗口.

我已经尝试了各种各样的东西,但无法弄明白.我想在右下角有一个小标签来移动屏幕周围的窗口.不像一个正方形,而是一个适合角落的三角形.谁能帮我这个？

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.