注册 登录
编程论坛 VB6论坛

请教各位高手:一个窗体的多个文本框的集合如何表示?

HVB6 发布于 2016-03-20 18:38, 1729 次点击
for   "循环文本框的集合"   ' 一个窗体的多个文本框的集合如何表示?"
  i=i+1
  s(1)=Form1.Text1(i).Text '写入s 数组
next
1 回复
#2
风吹过b2016-03-21 20:09
一、文本框是控件数组
Dim i As Long
For i = 0 To Text1.Count - 1
    Text1(i).Text = i
Next i

二、文本框不是控件数组
Dim i As Long
For i = 0 To Form1.Controls.Count - 1
    'If Form1.Controls(i).Name = "Text1" Then           '按名字
    If TypeName(Form1.Controls(i)) = "TextBox" Then     '按类型
        Form1.Controls(i).Text = i + 1
    End If
Next i
1