您的位置：程序门 -> vb -> 基础类

能不能动态地生成控件

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

能不能动态地生成控件[已结贴,结贴人:wl173235844]

发表于：2007-01-03 21:08:50 楼主

我有个这样的想法：在一个form的text中输入一个数字，比如3。然后面此form中就自动的生成3个text控件。
不知道各位大虾有没有办法。
谢谢了。

发表于：2007-01-03 21:18:031楼得分:10

先放一个command空间和 text1控件的index设为0，贴下面代码
private sub command1_click（)
load text1（1)
text1（1).top = text1（0).top + 1000
text1（1).visible = 1
load text1（2)
text1（2).top = text1（1).top + 1000
text1（2).visible = 1
end sub

发表于：2007-01-03 23:38:112楼得分:6

楼上的办法也不错。

实际上，vb 也可以动态生成控件的，但不能生成控件数组，想使用控件数组，需要自己重新组织。

option explicit
dim withevents text1 as vb.textbox
dim text2 as vb.textbox

private sub form_load（)
set text1 = controls.add（ "vb.textbox ", "text1 ")
text1.visible = true

set text2 = controls.add（ "vb.textbox ", "text21 ")
text2.visible = true
text2.top = 500
end sub

发表于：2007-01-04 09:18:143楼得分:4

'加入一个textbox
set ctltext = controls.add（ "vb.textbox ", "ctltext1 ", form1)

'设置textbox的位置和尺寸
ctltext.move （ctldynamic.left + ctldynamic.width + 50), _
1, 2500, 100
'将textbox的背景色设置为蓝色并将前景色设置为白色
ctltext.backcolor = vbblue
ctltext.forecolor = vbwhite
'使textbox可见
ctltext.visible = true

下一篇：这个是托盘程序代码 ,代码中.dwstate = 0是什么意思呀？
上一篇：listview问题

其他资讯