关于修改文本框的背景色

[liuxn2003]

怎样才能在 *.aspx.vb 中写一个sub,在page_load中调用，使得界面上的所有可输入框在获得焦点时背景色发生变化。我试着用for each ... in，但是没有效果。（界面上用的是web控件）

this is my source code:

Private Sub SetColor()

'Dim txtCtrl As System.Web.UI.Control
Dim txtCtrl As Object

For Each txtCtrl In Me.Controls
If TypeOf txtCtrl Is TextBox Then
txtCtrl.Attributes.Add("onfocus", "this.style.backgroundColor='#ffffc0';")
txtCtrl.Attributes.Add("onblur", "this.style.backgroundColor='#ffffff';")
End If
Next txtCtrl

End Sub

[panyee]

一般是在具体的一个ID上加就可以

[standy]

樣式定義
採用htc可以達到效果

[liuxn2003]

我界面上的项目有很多，大约30多项，所以想通过过程来处理。请帮帮忙，多谢!

[cyp503]

应该是判断条件有错误

你查看页面的源文件，看看有没有添加了”onfocus“的属性

或者设置断点

看判断语句有没有执行

[liuxn2003]

我发现Me.Controls返回的并不是界面上所有控件的集合，我的界面上有输入项目30多项，而Me.Controls.Count却只是3，我很困惑！

[fmj1980]

最好是直接使用ID添加属性！
Me.Controls应该应该是页面下的控件个数，不包括控件下的子控件，如果一定要用循环，你可以试一试用递归的方法添加控件属性

[goody9807]

把所有的TextBox 放入placeholder中 然后再用

For Each txtCtrl In ph1.Controls
If TypeOf txtCtrl Is TextBox Then
txtCtrl.Attributes.Add("onfocus", "this.style.backgroundColor='#ffffc0';")
txtCtrl.Attributes.Add("onblur", "this.style.backgroundColor='#ffffff';")
End If
Next txtCtrl

[sonryou]

把所有的TextBox 放入placeholder中 然后再用

For Each txtCtrl In ph1.Controls
If TypeOf txtCtrl Is TextBox Then
txtCtrl.Attributes.Add("onfocus", "this.style.backgroundColor='#ffffc0';")
txtCtrl.Attributes.Add("onblur", "this.style.backgroundColor='#ffffff';")
End If
Next txtCtrl

[风影2000]

文本框是在服务器端执行的，有客户端事件吗？