如何在 HTA 窗口中输出结果而不是弹出消息框？答案

【问题标题】：How to output result inside HTA window instead of a pop up message box?如何在 HTA 窗口中输出结果而不是弹出消息框？
【发布时间】：2015-01-29 03:27:59
【问题描述】：

我在 HTA 文件中有一个按钮，它将搜索某些字符串然后输出结果。(Thanks for@Ansgar Wiechers) 我想在这个 HTA 窗口的一侧输出结果，而不是弹出一个消息框。结果将填写空白“您处于_____模式”

我该怎么做？

<html>
<head>
<title></title>
<HTA:APPLICATION
  APPLICATIONNAME=""
  ID=""
  VERSION="1.0"/>
</head>

<script language="VBScript">

Sub RUNCURRENTMODE
      Set xml = CreateObject("Msxml2.DOMDocument.6.0")
xml.async = False
xml.load "C:\aaa\settings.xml"

If xml.ParseError Then
  MsgBox xml.ParseError.Reason
  self.Close()  'or perhaps "Exit Sub"
End If

For Each n In xml.SelectNodes("//CSVName")
  Select Case n.Attributes.GetNamedItem("Value").Text
    Case "standard.csv"     : MsgBox "This is standard."
    Case "non-standard.csv" : MsgBox "This is non-standard."
    Case Else               : MsgBox "Unexpected value."
  End Select
Next
End Sub

</script>

<body bgcolor="buttonface">
<center>
<p><font face="verdana" color="red">YOU ARE CURRENTLY IN STANDARD CSV MODE</font></p>
<input id=runbutton  class="button" type="button" value="CURRENT MODE" name="db_button"  onClick="RUCURRENTMODE" style="width: 170px"><p>
</center>


</body>
</html>

【问题讨论】：

我在这里有一个类似的问题stackoverflow.com/questions/38273847/…

标签： html vbscript hta

【解决方案1】：

通常，您会将具有 ID 的元素放入 HTA 的 <body> 部分，例如段落。或跨度，因为您只想更新部分文本：

<body>
<p>You are in <span id="FOO"></span> mode</p>
</body>

并在您的函数中更改具有该 ID 的元素的值：

Select Case n.Attributes.GetNamedItem("Value").Text
  Case "standard.csv"     : FOO.innerText = "standard."
  Case "non-standard.csv" : FOO.innerText = "non-standard."
  Case Else               : MsgBox "Unexpected value."
End Select

【讨论】：