今天，注意了一下VB.NET中所有的控件，几乎都有同一个属性：Tag属性,试了下发现使用它，可以达到许多意想不到的效果。
在编写程序时,我们经常要控制很多不同控件的属性,例如我们要将20个TextBox控件中的第1、3、4、6、7、10、11个的内容清空。该怎么半呢？这时只要将要清空内容的控件的Tag属性设置为a，然后加入以下代码就可以了。
按钮事件
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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
由于在VB.NET中控件数组这个概念不存在了，所以上述代码先进行了控件类型的判断，如果是在VB6.0中
那就更简单了。只要如下就行：
For i=1 To 20
If Text1(i).Tag= "a"Then
Text1(i).Text= ""
End If
Next i
感觉这个Tag属性，可以当成是一个控件的标签，或者用来作为控件的备注。
在编写程序时,我们经常要控制很多不同控件的属性,例如我们要将20个TextBox控件中的第1、3、4、6、7、10、11个的内容清空。该怎么半呢？这时只要将要清空内容的控件的Tag属性设置为a，然后加入以下代码就可以了。
按钮事件
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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
由于在VB.NET中控件数组这个概念不存在了，所以上述代码先进行了控件类型的判断，如果是在VB6.0中
那就更简单了。只要如下就行：
For i=1 To 20
If Text1(i).Tag= "a"Then
Text1(i).Text= ""
End If
Next i
感觉这个Tag属性，可以当成是一个控件的标签，或者用来作为控件的备注。
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
