有text1(9),text2(9),text3(9)三个数组text 控件，如何利用循环分别给他们付值！（马上给分）

Question

有text1(9),text2(9),text3(9)三个数组text 控件，如何利用循环分别给他们付值！

Answer 1

For Each a In Me
    If TypeOf a Is TextBox And a.Index = 9 Then
        a.Text = ""
    End If
Next

Answer 2

你为什么不 text1(0),text1(2),text1(3)呢？？
干吗非要那样啊？？

Answer 3

大家搞清楚是
text1(0)....text1(9)
text2(0)....text2(9)
text3(0)....text3(9)////////// 提示错误////////
for j = 0 to 8
  for i = 0 to 6 
    text"& j &"(i) = ""
   next i
next j
//////////////////////////

Answer 4

for i=0 to 9
    text1(i).text="aaa"
    text2(i).text="abb"
    text3(i).text="add"
next

Answer 5

Private Sub Form_Load()
    Dim i As Integer
    
    For i = 1 To Me.Controls.Count
        
        If TypeOf Me.Controls(i - 1) Is TextBox Then
            
            If Me.Controls(i - 1).Name = "Text1" _
                        Or Me.Controls(i - 1).Name = "Text2" _
                        Or Me.Controls(i - 1).Name = "Text3" Then
                 Me.Controls(i - 1).Text = ""
            End If
            
        End If
        
    Next
    
End Sub

Answer 6

我是要能控制text后面的数字的，如有时我可能只用text1,
有时用，text1,text2,有时全用，
text后面的数字是根据数据库检测到的数据条数来确定的
检测到一条的话就只用text1(9)
九条的话就用text9(9)

Answer 7

你要构造控件的名称,基本实现不了.好像以前听说有人弄过.通过什么呢?想不起来了.好像是VBA吧.VB没有VFP中的&,如果有这个,就能搞定了.

Answer 8

VB不可以直接运行一个符串，所以不能实现你现在的要求。但在网页中VBScript就可以。

Answer 9

text后面的数字是不能自己动态添加的，它就像变量
你说你能改变量的名字吗？

Answer 10

可以用一个TEXT1控件数组，如：text1(0)- text1(26)

Answer 11

1、先写一个寻找TEXT控件的函数
private function FindControls(txtName as string, _
                 iIndex as integer) as textbox
For i = 1 To Me.Controls.Count
        
        If TypeOf Me.Controls(i - 1) Is TextBox Then
            
            If Me.Controls(i - 1).Name = txtName and me.controls(i-1).index=iIndex Then
                 findcontrols=me.controls(i-1)
                 exit function
            End If
            
        End If
        
    Nextend function
2、
for j = 0 to 2
  for i = 0 to 8 
    findcontrols("text"& j,i).text = ""
   next i
next j

Answer 12

Private Sub Command1_Click()
Dim mCtrl As Control
    For Each mCtrl In Form1
        If TypeOf mCtrl Is TextBox Then
            If mCtrl.Index = "9" Then
                Select Case Right(mCtrl.Name, 1)
                    Case "1"
                        mCtrl.Text = "111"
                    Case "2"
                        mCtrl.Text = "222"
                    Case "3"
                        mCtrl.Text = "333"
                End Select
            End If
        End If
    Next mCtrl
End Sub

Answer 13

'改一下：Private Sub Command1_Click()
On Error Resume Next
Dim mCtrl As Control
    For Each mCtrl In Form1
        If TypeOf mCtrl Is TextBox Then
            If mCtrl.Index = "9" Then
                Select Case Right(mCtrl.Name, 1)
                    Case "1"
                        mCtrl.Text = "111"
                    Case "2"
                        mCtrl.Text = "222"
                    Case "3"
                        mCtrl.Text = "333"
                End Select
            End If
        End If
    Next mCtrl
End Sub