如何在HTA中通过按钮将图片X位置设置为VBScript变量？

你原来的代码无法生效，因为HTML静态样式无法直接引用VBScript变量，必须通过脚本动态修改元素的样式属性。以下是可运行的实现方案：

<html>
<head>
    <title>控制图片位置</title>
    <script language="vbscript">
        Dim Position
        Position = 50 ' 定义存储X轴位置的VBScript变量

        Sub SetImagePosition()
            ' 通过ID定位图片元素，将变量值转为样式单位后赋值给left属性
            Document.getElementById("targetImage").style.left = Position & "px"
        End Sub
    </script>
</head>
<body>
    <!-- 给图片添加唯一ID，方便脚本定位 -->
    <img id="targetImage" src="Something.jpeg" style="position:relative; top:100px; left:0px;">
    <!-- 点击按钮触发位置设置逻辑 -->
    <button onclick="SetImagePosition()">设置图片X轴位置</button>
</body>
</html>

关键说明： #

• 给图片添加id="targetImage"：让VBScript能通过Document.getElementById精准找到目标元素
• 编写SetImagePosition过程：在过程中把VBScript变量Position拼接上px单位，赋值给图片的style.left属性，实现位置修改
• 按钮绑定onclick事件：点击按钮时触发上述过程，完成位置设置

内容的提问来源于stack exchange，提问作者Octogoon