我有一个数据库有若干条记录（<100条），我希望将数据读取出来，按实际的数据条目数添加Label,能实现动态自动的增减，并很均匀分布在Form上。 最好所有label可以跟form大小变化大小。我的目的是可以实现目视化显示数据


基本效果如同编写计算器自动生成按钮一样，我不太会实现换行和自动分布！请大家指点

[此贴子已经被作者于2016-7-7 16:52编辑过]

Dim Label() As Object
 Private Sub Form_Load()
 Dim i As Integer
 Dim nTop As Long
 
 ReDim Text(1 To 10)
 For i = 1 To 10
 Set Label(i) = Controls.Add("VB.Label", "Label" & CStr(i))
 Label(i).Height = 300
 Label(i).Top = nTop
 Label(i).Visible = True
 nTop = nTop + 30 * 15
 Next i
 
 End Sub
 

VB6可以，怎么实现？

问题主要是换行问题

[此贴子已经被作者于2016-7-6 17:01编辑过]

群里怎么没有人愿意指点下的，再次请求大家帮帮忙！！

谢谢版主，我试试看！

版主，如果有更多的话怎么才能增加第三列呢？谢谢

谢谢版主！！

谢谢版主！！！