标题:请教各位高手:一个窗体的多个文本框的集合如何表示?
只看楼主
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
结帖率:100%
已结贴  问题点数:20 回复次数:1 
请教各位高手:一个窗体的多个文本框的集合如何表示?
for   "循环文本框的集合"   ' 一个窗体的多个文本框的集合如何表示?"
  i=i+1
  s(1)=Form1.Text1(i).Text '写入s 数组
next
搜索更多相关主题的帖子: 文本框 如何 
2016-03-20 18:38
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:20 
一、文本框是控件数组
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

授人于鱼,不如授人于渔
早已停用QQ了
2016-03-21 20:09



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-462708-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.144061 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved