主题：动态控件 换行

 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)
        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 = 40
            lbl.Top = 36
            lbl.Width = 35
            lbl.Height = 40
            e.Form.AddControl(lbl)           
        Next

 If dr("窗口按键_功能菜单") < > Nothing Then
        Dim Value As String = dr("窗口按键_功能菜单")
        Dim sps() As Char = {"|"}
        Dim Names() As String  = Value.Split(sps)
        Dim i1 As Integer = 36
        Dim t As Integer = 40
        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 * (36)
            lbl.Top = t
            lbl.Width = 35
            lbl.Height = 40
            e.Form.AddControl(lbl)
            If i Mod 5 = 0 Then
                i1 = 36
                t = t + lbl.Height + 10
                'Else
                'i = i1 + 35
            End If
        Next
    End If

 Dim s As Integer = 1
        Dim t As Integer = 40
        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 = s
            lbl.Top = t
            lbl.Width = 35
            lbl.Height = 40
            e.Form.AddControl(lbl)
            If i Mod 5 = 0 Then
                s = 2
                t = t + lbl.Height + 2
               Else
                s = s + 35
            End If
    End If
此主题相关图片如下：22.jpg

 又会多一个出来
此主题相关图片如下：杜莎夫人.jpg

第一排会多一个出来
此主题相关图片如下：杜莎夫人.jpg

 Dim zcdd As WinForm.Button
Dim Value As String = "我的项目|增加项目|保存清单|导出报价|导出选型|导出汇总"
Dim sps() As Char = {"|"}
Dim Names() As String  = Value.Split(sps)
Dim s As Integer = 2
Dim t As Integer = 5
For i As Integer = 0 To Names.length - 1
    If i <> 0 Then
        If i Mod 2 = 0 Then
            s = 2
            t = t  + 31
        Else
            s = s + 66.5
        End If
    End If
    Dim nm As String = Names(i)
    zcdd = Forms("主窗_菜单").CreateControl(nm, ControlTypeEnum.Button)
    zcdd.Text = nm
    zcdd.name = nm
    zcdd.Width = 66
    zcdd.Height = 30
    'zcdd.Left = e.Form.Controls("菜单页面").Tabpages("客户信息").Width - i * (68)
    zcdd.Left = 2 + i * (68)
    zcdd.Top = e.Form.Controls("菜单页面").Tabpages("客户信息").Height - 90
    e.Form.Controls("菜单页面").Tabpages("客户信息").AddControl(zcdd)
    zcdd.ToolTip = zcdd.Text '动态提示