主题：关于窗口控件排布的问题

请问狐表有没有类似窗口网格、或者像ppt一样，只有靠近某个网格线就可以自动对齐的功能呢。

 直接动态控件

'界面初始化

For Each c As WinForm.Control In Forms("主窗_顶窗").Controls
    Forms("主窗_顶窗").RemoveControl(c.name)
Next
'遍历窗口所有控件 清除后重新加载新的控件

Forms("主窗_顶窗").StopRedraw()

Dim dr As DataRow = DataTables("系统_菜单").SQLFind("主表='" & CurrentTable.Name & "'")
Forms("主窗_顶窗").panel.parent.parent.Height = 72
Dim Label As WinForm.Label
Label = Forms("主窗_顶窗").CreateControl("窗口标题", ControlTypeEnum.Label)
'Label.Text = Forms("主窗_顶窗").name
Label.Left = 10
Label.Top = 25
Label.Width = 245
Label.Height = 30
'Label.TextAlign = ContentAlignment.MiddleLeft

Label .Text = "城市之窗家具(集团)|"
Label.Font = New Font("黑体",18,FontStyle.Bold ) ' 例如定义一个宋体?大小为12磅?加粗且带下划线的字体
Label.ForeColor = Color.Indigo
Forms("主窗_顶窗").AddControl(Label)
Label.ToolTip = "双击刷新"

Dim Label1 As WinForm.Label
Label1 = Forms("主窗_顶窗").CreateControl("窗口副标题", ControlTypeEnum.Label)
Label1.Left = Label.Left + Label.Width
Label1.Top = 30
Label1.Width = 200
Label1.Height = 30
'Label1.TextAlign = ContentAlignment.MiddleLeft
'Label1.ForeColor = Color.Maroon
Label1.Text = dr("窗体标题")
Label1.Font = New Font("黑体",14,FontStyle.Bold ) ' 例如定义一个宋体?大小为12磅?加粗且带下划线的字体
Forms("主窗_顶窗").AddControl(Label1)

'尾部下控件-----------------

Dim xpkj As WinForm.Button
xpkj = Forms("主窗_顶窗").CreateControl("菜单", ControlTypeEnum.Button)
'Button.Text = "Foxtable"
xpkj.Image = GetImage("CellButton.ico")
xpkj.Left = Forms("主窗_顶窗").Width -  40
xpkj.Top = 35
xpkj.Width = 30
xpkj.Height = 30
Forms("主窗_顶窗").AddControl(xpkj)
xpkj.ToolTip = "打开菜单"

Dim xpkj1 As WinForm.Button
xpkj1 = Forms("主窗_顶窗").CreateControl("编辑", ControlTypeEnum.Button)
xpkj1.Image = GetImage("EditMode.ico")
xpkj1.Left = Forms("主窗_顶窗").Width - xpkj.Width - 40
xpkj1.Top = xpkj.Top
xpkj1.Width = 30
xpkj1.Height = 30
Forms("主窗_顶窗").AddControl(xpkj1)
xpkj1.ToolTip = "编辑当前行"

Dim xpkj2 As WinForm.Button
xpkj2 = Forms("主窗_顶窗").CreateControl("图表", ControlTypeEnum.Button)
xpkj2.Image = GetImage("Chart.ico")
xpkj2.Width = 30
xpkj2.Height = 30
xpkj2.Left = xpkj1.Left - xpkj2.Width
xpkj2.Top = xpkj.Top
Forms("主窗_顶窗").AddControl(xpkj2)
xpkj2.ToolTip = "打开图表"
'
Dim xpkj3 As WinForm.Button
xpkj3 = Forms("主窗_顶窗").CreateControl("刷新加载树", ControlTypeEnum.Button)
xpkj3.Image = GetImage("ToggleTree.ico")
xpkj3.Width = 30
xpkj3.Height = 30
xpkj3.Left = xpkj2.Left - xpkj3.Width
xpkj3.Top = xpkj.Top
xpkj3.ShowToolTip("刷新加载树",2)
Forms("主窗_顶窗").AddControl(xpkj3)
xpkj3.ToolTip = "记载数据目录树"
'
Dim xpkj4 As WinForm.CheckedComboBox
xpkj4 = Forms("主窗_顶窗").CreateControl("目录树加载数据框", ControlTypeEnum.CheckedComboBox)
xpkj4.Text = "目录树加载数据框"
xpkj4.ForeColor = Color.LightBLue
xpkj4.Width = 210
xpkj4.Height = 30
xpkj4.Left = xpkj3.Left - xpkj4.Width
xpkj4.Top = xpkj.Top

Forms("主窗_顶窗").AddControl(xpkj4)
'
'上排窗尾控件

Dim spkj As WinForm.Button
spkj = Forms("主窗_顶窗").CreateControl("排序", ControlTypeEnum.Button)
spkj.Image = GetImage("sortaz.ico")
spkj.Width = 30
spkj.Height = 30
spkj.Left = Forms("主窗_顶窗").Width -  40
spkj.Top = 5
spkj.BackColor = Color.White
Forms("主窗_顶窗").AddControl(spkj)
spkj.ToolTip = "排序"
'
Dim spkj1 As WinForm.CheckBox
spkj1 = Forms("主窗_顶窗").CreateControl("升序", ControlTypeEnum.CheckBox)
spkj1.Width = 30
spkj1.Height = 30
spkj1.Left = spkj.Left - spkj1.Width
spkj1.Top = spkj.Top
spkj1.BackColor = Color.White
spkj1.CheckAlign = ContentAlignment.MiddleCenter    '控件复选框位置
Forms("主窗_顶窗").AddControl(spkj1)
spkj1.ToolTip = "顺序选择"

Dim spkj2 As WinForm.Button
spkj2 = Forms("主窗_顶窗").CreateControl("视图", ControlTypeEnum.Button)
spkj2.Image = GetImage("vbcode.ico")
spkj2.Width = 30
spkj2.Height = 30
spkj2.Left = spkj1.Left - spkj2.Width - 1
spkj2.Top = spkj.Top
spkj2.BackColor = Color.White
spkj2.BorderSize = 0
Forms("主窗_顶窗").AddControl(spkj2)
spkj2.ToolTip = "视图"
'
Dim spkj3 As WinForm.Button
spkj3 = Forms("主窗_顶窗").CreateControl("搜索", ControlTypeEnum.Button)
spkj3.Image = GetImage("Preview.ico")
spkj3.Width = 30
spkj3.Height = 30
spkj3.Left = spkj2.Left - spkj3.Width
spkj3.Top = spkj.Top
'Forms("主窗_顶窗").AddControl(Button)
spkj3.BackColor = Color.White
spkj3.BorderSize = 0
Forms("主窗_顶窗").AddControl(spkj3)
spkj3.ToolTip = "搜索"
'
'
Dim spkj4 As WinForm.ComboBox
spkj4 = Forms("主窗_顶窗").CreateControl("模糊搜索", ControlTypeEnum.ComboBox)
spkj4.Text = "当前表内容模糊搜索"
spkj4.Width =210
spkj4.Height = 30
spkj4.Left = spkj3.Left - spkj4.Width
spkj4.Top = spkj.Top
spkj4.ForeColor = Color.LightBLue
Dim s1 As String = ""
For Each frm As Col In MainTable.Cols
    s1 &= frm.name & "|"
Next
spkj4.ComboList = s1.trim("|")
Forms("主窗_顶窗").AddControl(spkj4)
spkj4.ToolTip = "点击选择关键列"

Forms("主窗_顶窗").ResumeRedraw()