[已解决]Add方法加入了一组文本控件，如何得到控件组中某个文本框的文本属性

dxzgl

CommandButton1用Add方法加入了一组文本控件，现在想 CommandButton2得到控件组中某个文本框的文本属性，可以吗？
' 添加按钮控件组
Private Sub CommandButton1_Click()
Dim nCtr As MSForms.TextBox
    For i = 1 To 3
           for j=1 to 5
        ' 添加按钮控件
        Set nCtr = Me.Controls.Add("Forms.textbox.1", "Test" & i,j)
        ' 设置按钮控件标题和位置
        With nCtr
            .Text = i
            .Move 10+i*80, 10 + (j- 1) * 30, 80, 30
        End With
       next j
    Next i
'获取第2列第3行文本框的文本。
？

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-28 12:52

Private Sub CommandButton1_Click()
Dim i%, j%, k%
Dim nCtr As MSForms.TextBox
    For i = 1 To 3
           For j = 1 To 5
        ' 添加按钮控件
          k = k + 1
        Set nCtr = Me.Controls.Add("Forms.textbox.1", "Test" & k)
        ' 设置按钮控件标题和位置
        With nCtr
            .Text = k
            .Move 10 + i * 80, 10 + (j - 1) * 30, 80, 30
        End With
       Next j
    Next i
'获
End Sub

Private Sub CommandButton2_Click()
    Dim i%, j%
    i = 2: j = 3 '2列 3行
    MsgBox Me.Controls("Test" & (i - 1) * 5 + j).Text
End Sub

跳转到最佳答案楼层

mxg825

你为什么要写成！数组控件！ VBA 不知支持吗？

吕?布

' 添加按钮控件组
Private Sub CommandButton1_Click()
Dim i As Long, j As Long
    Dim nCtr As Msforms.TextBox
    For i = 1 To 3
        For j = 1 To 5
            ' 添加按钮控件
            Set nCtr = Me.Controls.Add("Forms.textbox.1", "Test" & i & j)
            ' 设置按钮控件标题和位置
            With nCtr
                .Text = i & "-" & j
                .Move 10 + i * 80, 10 + (j - 1) * 30, 80, 30
            End With
        Next j
    Next i
   
    Debug.Print Me!Test23.Text
    Debug.Print Me.Controls("Test23").Text
    Dim itm As Msforms.Control
    For Each itm In Me.Controls
        If TypeOf itm Is Msforms.TextBox Then Debug.Print itm.Name, itm.Text
    Next
End Sub

mxg825

Private Sub CommandButton1_Click()
Dim i%, j%, k%
Dim nCtr As MSForms.TextBox
    For i = 1 To 3
           For j = 1 To 5
        ' 添加按钮控件
          k = k + 1
        Set nCtr = Me.Controls.Add("Forms.textbox.1", "Test" & k)
        ' 设置按钮控件标题和位置
        With nCtr
            .Text = k
            .Move 10 + i * 80, 10 + (j - 1) * 30, 80, 30
        End With
       Next j
    Next i
'获
End Sub

Private Sub CommandButton2_Click()
    Dim i%, j%
    i = 2: j = 3 '2列 3行
    MsgBox Me.Controls("Test" & (i - 1) * 5 + j).Text
End Sub

mxg825

吕?布 发表于 2011-11-28 12:51
' 添加按钮控件组
Private Sub CommandButton1_Click()
Dim i As Long, j As Long

这样写，如果建立的控件太多的话，会出错的！

如：11*11=个控件！
控件名：Test111   到底是1列11行，还是11列1行！

这是假设： 使用时，不一定要用到这么多个控件！

吕?布

嗯，我那样写确实容易有问题，主要示例怎样引用动态建立的控件

dxzgl

应用于类，用二维控件组添加其代码更简捷。test & i,j的属性能获取吗？

dxzgl

mxg825 发表于 2011-11-28 12:52
Private Sub CommandButton1_Click()
Dim i%, j%, k%
Dim nCtr As MSForms.TextBox

此方法可行，还能更简捷吗？