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

Dim lbl As WinForm.Button
    If dr("窗口按键_按键") < > Nothing Then
        Dim Value As String = dr("窗口按键_按键")
        Dim sps() As Char = {"|"}
        Dim Names() As String = Value.Split(sps)

dim i as integer = 40

dim t as integer = 36
        For i As Integer = 0 To Names.length - 1
            Dim nm As String = Names(i)
            lbl = e.Form.CreateControl(nm, ControlTypeEnum.Button)
            lbl .Text = nm
            lbl.name = nm
            lbl.Left = i
            lbl.Top = t
            lbl.Width = 35
            lbl.Height = 40
            e.Form.AddControl(lbl)

if i mod 5 = 0 then

i = 40

t = t + 40+10

else

i = i + 35 + 10

end if

End If

主题：动态控件 换行

主题：动态控件换行