在窗体中有30个textbox,我取名为T1到T30,现在我想把这30个textbox的text属性设置为""空形式,但我不想一一去设置,我现在想这样做如下:
Dim a As Integer
For a = 1 To 30
在这里加上设置语句该如何写,我是这个写的但是有错
T&a.text = ""(而且通不过)请问题要实现这个操作该如何写程序
Next
...全文
8211打赏收藏
如何实现这么一个功能????
在窗体中有30个textbox,我取名为T1到T30,现在我想把这30个textbox的text属性设置为""空形式,但我不想一一去设置,我现在想这样做如下: Dim a As Integer For a = 1 To 30 在这里加上设置语句该如何写,我是这个写的但是有错 T&a.text = ""(而且通不过)请问题要实现这个操作该如何写程序 Next
.同时操作多个文本框
'經過測試
Dim CT As Control
'如控件放在GroupBox中則將Form1改為GroupBox的name
For Each CT In Form1.Controls
If TypeOf CT Is TextBox then
CT.ReadOnly = False
CT.BackColor =Color.Red
Endif
Next
liutian32() 你好,谢谢你的回复
这种方法好象行不通也,我试了一下不行。
T(i).text = ""要出错是什么原因,这是一种单独的方法吗
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 29
t(i).Text = ""
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tb As Control
Dim index As Integer
For Each tb In Me.Controls
If IsMyTextBox(tb.Name, index) Then
t(index) = tb
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 29
t(i).Text = ""
Next
End Sub
Public Function IsMyTextBox(ByVal strDest As String, ByRef index As Integer) As Boolean
Dim i As Integer
Dim strName As String
For i = 0 To 29
strName = "T" + (i + 1).ToString
If strDest = strName Then
index = i
Return True
End If
Next
Return False
End Function