Question

VB.NET动态添加控件不显示的问题

准备做个自定义列表，结果读取数据库后动态添加控件，不提示出错，也不显示，经测试，数据库读取正常，循环输出结果也正常；单独把添加动态控件的代码执行也正常，就是一起执行的时候不显示结果，请求帮助。
代码如下：
Private Shared Item() As BL_OneCat ‘BL_OneCat是我自己做的自定义控件
Public Bl_Ds As New ClsAccess ‘ClsAccess是我自己做的Access数据库读取类
Bl_Ds.Open(Application.StartupPath & "\Ds\Ds_BookList.mdb")
Dim Bl_Reader As OleDbDataReader = Bl_Ds.Read("Select * From BookCat Order by Sort Desc")
If Bl_Reader.HasRows Then
While Bl_Reader.Read
ReDim Preserve Item(Bl_Reader("ID"))
Item(Bl_Reader("ID")) = New BL_OneCat
Item(Bl_Reader("ID")).CatName.Text = Bl_Reader("Name")
Me.Controls.Add(Item(Bl_Reader("ID")))
End While
End If
Bl_Reader.Close()
Bl_Ds.Close()

Answer 1

设置显示到前端.BringToFront 试试

Answer 2

你这个是c/s结构还是b/s,在Me.Controls.Add(Item(Bl_Reader("ID"))) 行代码设置个断点，看看程序是否按你想象的执行到了这行

Answer 3

Me.Controls.Add(Item(Bl_Reader("ID")))

后面加一句

Item(Bl_Reader("ID")).Dock =Docking.Top

试试