对动态增加控件的字体及位置的设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用sunion0769在2018/3/3 23:18:00的发言：
我想问一下，如果是要一次增加多个标签呢？假设标签lable内容标题与表A第一列的每一行一一对应？

For Each r As Row In Tables("表A").rows
    Dim lbl As WinForm.Label
    lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
    lbl.Text = r("第一列")
    lbl.Left = 100
    lbl.Top = 50 * r.index
    lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
    lbl.Font = New Font("黑体",12,FontStyle.Underline)
    e.Form.AddControl(lbl)
Next

主题：对动态增加控件的字体及位置的设置