调整主窗口、独立窗口控件的边距 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，
调整页面窗口中的SplitContainer的分区边距始终不对，劳烦您指导如何用代码调整；

如果是主窗口怎么做，其他窗口如何调整？例子如下，问题标注到了，窗口1的AfterLoad代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:spl宽高.foxdb

老师，

'If e.Form.panel.Visible = True Then 这个去掉可以吗，这句是什么意思呢

我这边放放到自定义函数中，黄色的部分和例子一样

Dim tab As WinForm.TabControl = args(0)

Dim dr As DataRow = args(1)

Dim e As object=args(2)

e.Form.StopRedraw

Dim dt As DataTable = dr.DataTable

Dim drs As List(of DataRow) = dt.Select("编码规则 like '" & dr("编码规则") & "%' and 编码级次 = '" & dr("编码级次")+1 & "'")

If drs.count > 0 Then

Dim ctab As WinForm.TabControl

ctab = tab.Form.CreateControl("tab_" & dr("编码规则"), ControlTypeEnum.tabcontrol)

ctab.Dock = 5

'ctab.ShowTabs=False

Dim panel As WinForm.panel

panel = tab.Form.CreateControl("pal_" & dr("编码规则"), ControlTypeEnum.panel)

panel.Dock = 5

panel.AddControl(ctab)

For Each cdr As DataRow In drs

ctab.TabPages.Add(cdr("编码规则"), cdr("编码名称")).Dock = 5

Functions.Execute("loop2", ctab, cdr,e)

ctab.TabPages(cdr("编码规则")).Dock = 5

tab.TabPages(dr("编码规则")).AddControl(panel)

Else

'If e.Form.panel.Visible = True Then

e.Form.TimerEnabled = False

[此贴子已经被作者于2017/8/21 16:31:08编辑过]

3楼代码执行后，位置还是不对呢

老师，

您给的的确可以实现，宽高都能能调整正确，但是，放到我这边的系统中，就不行了，这可怎么办呢

这个我弄了好多天了，位置怎么也调整不对啊，能给远程下吗？

老师，

MessageBox.Show(S1.Width)

宽度是198

在窗口中宽度就变为1770

而 S1.SplitterDistance 应该是按照1770的宽度计算，却使用198计算

假如直接用固定值，S1.SplitterDistance=400，就直接报错，因为宽度最大为198，

这是何故。

希望老师给看下我的QQ1683309317@QQ.COM

老师，

要是改到SelectedIndexChanging 是否直接将代码放过去就行？

嗯应该能解决了老师生成控件加属性方法哪个耗时长应怎么分配到相应事件中合理

[此贴子已经被作者于2017/8/21 18:30:21编辑过]

主题：调整主窗口、独立窗口控件的边距