Question

我有以下代码。

我有一个输入文本字段，其示例值为灰色。单击该字段时，文本将被删除，颜色将设置为黑色。然后，在完成一些VBScript之后，字段被清除并且示例返回到输入字段中，但是此时我无法将其着色为灰色。

一切正常，但UserName.style =“color：#ccc;”除外在VBScript中。

我在这里遗漏了什么吗？ VB错误显示“未实现”

任何解决方案都非常感谢。谢谢。

的VBScript：

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="";
}

Answer 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财产。

Answer 2

的VBScript：

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";
}

VBScript为颜色输入文本字段

2 个答案: