VB6.0获取窗体所有控件的值 包括数组控件 保存到ini文件

[SyeQQ]

最难的问题 在于 控件数组
因为控件数组 下标 不定
比如三个TextBox 名为Text1的数组控件
第一个的下标为 0
Text1(0)
第二个的下标为 100
Text1(100)
第三个的下标为 1000
Text1(1000)

如何得到这三个数组控件的分别对应的值呢


做这件事最终目的 其实是想保存窗体上所有控件的值到一个ini文件
就是数组控件这里遇到了难题，请各位帮帮忙，看看有什么方法没

[SyeQQ]

谢谢大家的帮忙 问题解决了 我去整理下代码 这样在 Form_Load()事件中就可以直接加载 上次控件的值了

[一如既往哈]

用for....each：

Private Sub Command1_Click()
    Dim obj
    For Each obj In Text1
        Debug.Print obj.Text
    Next
End Sub

[of123]

简化的一下，将数组控件成员的下标连续。 楼上的方式也可以，要识别控件，可以加一些参数：

Dim obj As Control

For Each obj In Text1
    Debug.Print obj.Name, obj.Index, obj.Text
Next