怎么样做到动态增加的控件显示某项内容

itcoco 2003-09-25 01:01:10
看了
http://expert.csdn.net/Expert/topic/2294/2294860.xml?temp=.3545496
的贴字,用
Private Sub Command1_Click()
'这是FORM1里面的一个命令按钮
'先在FORM2里加一个TEXT控件,将Index属性设置为 0
Dim lngNum As Long

lngNum = Form2.Text1.UBound + 1
Load Form2.Text1(lngNum)
Form2.Text1(lngNum).Visible = True
Form2.Text1(lngNum).Left = 100
Form2.Text1(lngNum).Top = 100
End Sub
可以实现动态增加控件
想问一下怎么样做到动态增加的控件显示某项内容
比如我想改变他们的caption,可是我发现他们只有count,item,lbound,ubound4个属性

所以我如果想显示数据库里的内容怎么办?
...全文
52 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
itcoco 2003-09-27
  • 打赏
  • 举报
回复
这样可以么?
MSSQL 2003-09-25
  • 打赏
  • 举报
回复
直接访问了:
Form2.Text1(lngNum).caption="test"
northwolves 2003-09-25
  • 打赏
  • 举报
回复
Form2.Text1 是控件数组,只有count,item,lbound,ubound4个属性
可以这样:
for i=0 to form2.text1.count-1
form2.text1(i).text="第" & i+1 &"个文本框"
next

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧