| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
共有 288 人关注过本帖
标题:请问我该如何引用用代码创建的text
只看楼主 加入收藏
baiyunhao
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-3-9
结帖率:0
  已结贴   问题点数:20  回复次数:2   
请问我该如何引用用代码创建的text
For j = 1 To10
Set T = Me.Controls.Add("VB.textbox", "Text" & j)
T.Text = ""
T.Visible = True
T.Width = 2000
T.Left = 3700
T.Top = 700 * j+ 800
T.Height = 200
T.FontSize = 10
Next j
(然后我该如何引用之前的text呢)
搜索更多相关主题的帖子: 引用 代码 创建 text Left 
2019-03-09 17:48
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:254
帖 子:4419
专家分:27157
注 册:2008-10-15
  得分:10 
使用 Me.Controls 集合遍类所有的控件来搜索它。

授人于鱼,不如授人于渔
早已停用QQ了
2019-03-09 20:16
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:98
帖 子:878
专家分:4612
注 册:2016-5-10
  得分:10 
使用 Controls.Add 创建Text数组控件,然后在按钮事件中给控件赋值,代码如下:
程序代码:
Dim Text() As Object    '在通用部分声明数组控件对象

Private Sub Command1_Click()    '在按钮事件中可以操作数组控件,下面是给文本框数组的部分控件重新赋值
Text(1).Text = "abc"
Text(2).Text = "cde"
'.........................
Text(10).Text = "xyz"
End Sub

Private Sub Form_Load()
Dim J As Integer
ReDim Text(1 To 10)   '对数组控件定义下标
For J = 1 To 10

 Set Text(J) = Me.Controls.Add("VB.TextBox", "Text1" & CStr(J))   '设置控件
Text(J).Text = J   '提前赋值
Text(J).Visible = True
Text(J).Width = 1000
Text(J).Left = 3700
Text(J).Top = 400 * J + 200
Text(J).Height = 60
Text(J).FontSize = 12
Next J
End Sub


应该没有问题。

[此贴子已经被作者于2019-3-10 13:10编辑过]

2019-03-10 13:08







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

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