1,451
社区成员
发帖
与我相关
我的任务
分享能用Controls.Add动态生成控件数组吗？
我想要生成一个控件数组，同时，我希望控件的名称要由变量获取（用load就无法做到），例如根据要求要在不同的情况下生成com1(i)控件或com2(i)控件。
我知道如何用Controls.Add动态生成控件，但不知道是否能生成控件数组。目前我只知道该方法可以动态的设置控件的名称，如果有其他的方法，请给出代码示范。
问题解决，一定给分！
我知道如何用Controls.Add动态生成控件，但不知道是否能生成控件数组。目前我只知道该方法可以动态的设置控件的名称，如果有其他的方法，请给出代码示范。
问题解决，一定给分！
...全文
请发表友善的回复…
发表回复
phoenix110 2003-11-18
- 打赏
- 举报
Option Explicit
Dim oControl(8) As Object
Private Sub Form_Load()
Dim i As Integer
Dim aleft As Integer
Dim atop As Integer
aleft = 10
atop = 10
For i = 1 To 5
Set oControl(i) = Controls.Add("VB.CommandButton", "MyButton" & CStr(i))
oControl(i).Left = aleft
oControl(i).Top = atop
oControl(i).Width = 2000
oControl(i).Height = 700
atop = atop + oControl(i).Height + 50
aleft = aleft + oControl(i).Height + 50
oControl(i).Visible = True
Next i
End Sub
上面代码是生成一组的button按钮的。同时递高的。你可以看一下。
Dim oControl(8) As Object
Private Sub Form_Load()
Dim i As Integer
Dim aleft As Integer
Dim atop As Integer
aleft = 10
atop = 10
For i = 1 To 5
Set oControl(i) = Controls.Add("VB.CommandButton", "MyButton" & CStr(i))
oControl(i).Left = aleft
oControl(i).Top = atop
oControl(i).Width = 2000
oControl(i).Height = 700
atop = atop + oControl(i).Height + 50
aleft = aleft + oControl(i).Height + 50
oControl(i).Visible = True
Next i
End Sub
上面代码是生成一组的button按钮的。同时递高的。你可以看一下。
toys 2003-11-18
- 打赏
- 举报
你可以用控件的Index属性，没有这个属性的空件当然不行了！
在窗体上放个控件如：image1控件，把index属性设成0，
然后你在代码重要动态生成控件只需要image1（i)，然后定义其位置（left,top)
即可动态生成控件。
在窗体上放个控件如：image1控件，把index属性设成0，
然后你在代码重要动态生成控件只需要image1（i)，然后定义其位置（left,top)
即可动态生成控件。
mousered0 2003-11-18
- 打赏
- 举报
可以搞定
shwen 2003-11-18
- 打赏
- 举报
既然是动态加入控件，干吗还需要用控件数组？
倘若你只是希望通过名称来管理这些控件，那么用一个集合或者集合集即可，例如：
dim myControls as new Dictionary
if not myControls.exists (controlName) then
myControls.add controlName, new Dictionary
end if
myControls(controlName).add controlIndex, Controls.Add("VB.CommandButton", "MyButton" & CStr(i))
此后，即可用 myControls(controlName)(contrlIndex) 来访问你所添加的任何一个控件
倘若你只是希望通过名称来管理这些控件，那么用一个集合或者集合集即可，例如：
dim myControls as new Dictionary
if not myControls.exists (controlName) then
myControls.add controlName, new Dictionary
end if
myControls(controlName).add controlIndex, Controls.Add("VB.CommandButton", "MyButton" & CStr(i))
此后，即可用 myControls(controlName)(contrlIndex) 来访问你所添加的任何一个控件
rainstormmaster 2003-11-18
- 打赏
- 举报
需要指出的是：
用Controls.Add动态生成的控件数组不能响应事件。
即你不能这样定义：
Dim withevents oControl(8) As Object
会报错
用Controls.Add动态生成的控件数组不能响应事件。
即你不能这样定义：
Dim withevents oControl(8) As Object
会报错
Kivic 2003-11-18
- 打赏
- 举报
load aa(i)
aa(i).visible=true
unload aa(i)
aa(i).visible=true
unload aa(i)
