事件 委托有关问题。求代码

事件 委托问题。求代码

遍历窗体上的控件。是TEXTBOX的话 当这个TEXTBOX得到光标的话就让他的TEXT=1


求具体代码。谢谢


[解决办法]
在一个textbox的Enter事件写上以下代码,然后把其它的textbox的Enter事件挂上就行了

VB.NET code

    Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter        Dim txt As TextBox        txt = CType(sender, TextBox)        txt.Text = "1"    End Sub
[解决办法]
事件？委托？是不是这样的？
VB.NET code
public delegate OnTextEnter(Of T)(Byval sender As T,ByVal e As System.EventArgs)public CkThread as new Thread(addressof ckvoid(new OnTextEnter(TextBox)(addressof TextEnter))'用多线程来检查?private sub ckvoid(byval dg as OnTextEnter(Textbox))  For Each c As Control In Me.Controls      If TypeOf c Is TextBox AndAlso c.Focused Then             dg(c,EventArgs.empty)      End If  Nextend subprivate sub TextEnter(Byval sender As TextBox,ByVal e As System.EventArgs)  sender.text="1" end sub