0

我有下面的代码。

我有一个输入文本字段，其中有一个示例值灰色。单击该字段时，文本被删除，颜色设置为黑色。然后，在它完成一些 VBScript 之后，这些字段被清除，示例又回到了输入字段中，但我现在无法让它也将其着色为灰色。

一切正常，除了 UserName.style = "color: #ccc;" 在 VBScript 中。

我在这里错过了什么吗？VB 错误提示“未实现”

任何解决方案都受到高度赞赏。谢谢你。

VB脚本：

UserName.value = "Example: JSmith"
UserName.style = "color: #ccc;"
</SCRIPT>

HTML：

<input type="text" name="UserName" value="Example: JSmith" style="color: #ccc;"  onfocus="myFunction(UserName)"><p>

JavaScript：

function myFunction(x)
{
x.style.color="black";
x.value="";
}
4

2 回答 2

1

VBScript/.HTA 演示：

<html>
 <head>
  <Title>colortext</Title>
  <hta:application id="colortext" scroll = "no">
  <script type="text/vbscript">
   Function CBT()
     ' change backgound color of txtDemo
     Dim txtDemo : Set txtDemo = document.getElementById("txtDemo")
     Select Case txtDemo.style.backgroundColor
       Case "black"
         txtDemo.style.backgroundColor = "yellow"
       Case "yellow"
         txtDemo.style.backgroundColor = "red"
       Case Else
         txtDemo.style.backgroundColor = "black"
     End Select
   End Function
  </script>
 </head>
 <body>
  <input type="text" id="txtDemo" value="Initial Value" />
  <hr />
  <input type="button" value="CBT" onclick="CBT" />
 </body>
</html>

重要的部分是获取 HTML 元素document.getElementById("txtDemo")及其 .style.backgroundColor属性。

于 2013-05-21T11:14:21.393 回答
0

VB脚本：

Call initialColor()
UserName.value = "Example: JSmith"

HTML：

<input type="text" name="UserName" value="Example: JSmith" style="color: #ccc;"  onfocus="myFunction(UserName)"><p>

JavaScript：

function changeColor(x)
{
x.style.color="black";
x.value="";
}
function initialColor()
{
UserName.style.color="ccc";
Manager.style.color="ccc";
Ticket.style.color="ccc";
}
于 2013-05-21T12:50:25.927 回答