VBScript使用Windows Visual Styles

发布时间：2020-12-14 02:21:13 所属栏目：Windows 来源：网络整理

导读：是否可以告诉VBScript使用 Windows视觉样式,以便任何表单组件使用Windows主题而不是经典组件？例如,要使MsgBox显示样式按钮而不是经典3D凸起方形按钮. 这个：与此相反：解决方法在HTA应用程序中,一个简单的元标记将打开视觉样式： META HTTP-EQUIV="MSThe

是否可以告诉VBScript使用 Windows视觉样式,以便任何表单组件使用Windows主题而不是经典组件？例如,要使MsgBox显示样式按钮而不是经典3D凸起方形按钮.

这个：

enter image description here

与此相反：

enter image description here

解决方法

在HTA应用程序中,一个简单的元标记将打开视觉样式：

<META HTTP-EQUIV="MSThemeCompatible" CONTENT="yes">

这个技巧似乎完全从谷歌搜索结果中消失了,将这个S / O问题放在首位！

在VBScript MsgBox是罪魁祸首的情况下,必须修改wscript主机以使用视觉样式.但是为了帖子,您可以使用HTA文件轻松制作自己的MsgBox副本,并启用视觉样式.我根据你的截图创建了一个精确的副本：

msgbox.hta：

<html>
<head>
 <title>MsgBox Title</title>
 <META HTTP-EQUIV="MSThemeCompatible" CONTENT="yes">
 <HTA:APPLICATION ID="Custom MsgBox"
     APPLICATIONNAME="Custom MsgBox"
     BORDER="thin"
     BORDERSTYLE="normal"
     CAPTION="yes"
     CONTEXTMENU="no"
     ICON=""
     MAXIMIZEBUTTON="no"
     MINIMIZEBUTTON="no"
     SHOWINTASKBAR="no"
     SINGLEINSTANCE="no"
     SYSMENU="yes"
     SCROLL="no"
     WINDOWSTATE="normal"/>
 <script language="javascript">window.resizeTo(400,170);</script>
</head>
<body style="font-family:Arial;padding:20px 0 0 20px;background:rgb(180,240,230)">
 <p>MsgBox Body; lorem ipsum dipsum</p><br>
 <div align="right"><button onclick="window.close()" style="width:80px">OK</button></div>
</body>
</html>

它足够小,如果你愿意,可以直接从批处理脚本将其回显到hta文件中.

我希望这有帮助！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!