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

时间:2014-02-01 03:29:58

标签: hta

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

我将caption设置为"no",以便我可以创建一个平面UI应用程序。因为我禁用了标题,所以我没有移动窗口的障碍。

我尝试过各种各样的事情,但无法弄明白。我想在右下角有一个小标签来移动屏幕周围的窗口。不像一个正方形,而是一个适合角落的三角形。任何人都可以帮我这个吗?

1 个答案:

答案 0 :(得分:5)

这是一个移动窗口的简单脚本。

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&amp; 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的{​​{1}}。