Question

我在HTA文件中有一个按钮，它会搜索某些字符串然后输出结果。（Thanks for @Ansgar Wiechers）我想在HTA窗口的一侧输出结果而不是弹出一个消息框。结果将填补空白＆＃34;你在_____模式＆＃34;

我该怎么做？

<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>

Answer 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

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

1 个答案: