以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于窗口控件排布的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176197) |
-- 作者:Phoebe菲比 -- 发布时间:2022/4/3 16:16:00 -- 关于窗口控件排布的问题 我发现狐表有一个非常不智能的地方,就是窗口没有网格,在拖动控件时,需要手动调整很久才能吧控件对其。 请问狐表有没有类似窗口网格、或者像ppt一样,只有靠近某个网格线就可以自动对齐的功能呢。
|
-- 作者:有点蓝 -- 发布时间:2022/4/5 20:54:00 -- 这个没有。只有菜单的批量对齐功能 |
-- 作者:yifan3429 -- 发布时间:2022/4/7 19:37:00 -- 直接动态控件 \'界面初始化 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() |