以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态增加控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54990)
--  作者：tujiu
--  发布时间：2014/8/8 14:54:00
--  动态增加控件

在窗口中动态增加6个label控件，这6个控件是通过数组和for each组合使用添加的。现在想让这6个控件分开显示，分成2行，每行3个，并每列都是对齐。这个怎么设置？用集合的方式能实现吗？

[此贴子已经被作者于2014-8-8 14:54:24编辑过]
--  作者：有点甜
--  发布时间：2014/8/8 14:59:00
--  

Dim lbls() As String = {"1", "2", "3", "4", "5", "6"}

For i As Integer = 0 To 1
    For j As Integer = 0 To 2
        Dim lbl As WinForm.Label
        lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
        lbl.Text = "标签" & lbls(i*3+j)
        lbl.Left = 100 * j
        lbl.Top = 100 * i
        e.Form.AddControl(lbl)
    Next
Next