[已解决]如何获取Add方法加入的控件组中某个控件的属性？

dxzgl

CommandButton1用Add方法加入了一组文本控件，现在想 CommandButton2得到控件组中某个文本框的文本属性，可以吗？

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

'获取第三个文本框的文本
Private Sub CommandButton2_Click()

End Sub

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-6 21:43

'获取第三个文本框的文本
Private Sub CommandButton2_Click()
MsgBox Me.Controls("Test3").Text
End Sub

跳转到最佳答案楼层

mxg825

'获取第三个文本框的文本
Private Sub CommandButton2_Click()
MsgBox Me.Controls("Test3").Text
End Sub

周小艳

mqr66

多谢分享，学习学习。

dxzgl

mxg825 发表于 2011-11-6 21:43
'获取第三个文本框的文本
Private Sub CommandButton2_Click()
MsgBox Me.Controls("Test3").Text

谢谢！最佳答案。