.NET中 tag的一個小應用

tag的一個小應用



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As Control

　　For Each con In Me.Controls
　　　　If TypeOf (con) Is TextBox Then
　　　　　　Dim txt As TextBox = con
　　　　　　If txt.Tag = "a" Then
　　　　　　　　txt.Text = ""
　　　　　　End If
　　　　End If
　　Next

End Sub