主题：窗口中添加控件求助

比如:

向分区面板的第二个分区加入一个Table：

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", True)
tbl.SetBounds(10, 10, 600, 400)
e.Form.Controls("SplitContainer1").Panel2.AddControl(tbl)

 

问题:如何设置Table　可以停靠到容器的旨定边框,也就是可大可小?给出的例子只能设置位置和大小,但不能随窗口的大小变化,求解,谢谢

 

解决了:

        tbl.width=  tbl.Parent.width
        tbl.Height =  tbl.Parent.Height

问题依然存在,窗口变化时还是不变,待解决.

停靠属性这只FILL即可

加入代码

 

tbl.Dock = 5

非常谢谢,现在可以了.

设想是设计主子表录入窗口,绑定字段和关联表都是代码动态添加,窗口Table也是动态加入,现在把这段成功的代码贴出,有需要的可以看下

        Dim tbl As WinForm.Table
        tbl = e.Form.CreateTable("Table1", Tbname & "." & Tbnames, False)
        tbl.SetBounds(0, 0, 1031, 356)
        Forms("F_DJ").Controls("SplitContainer1").Panel2.AddControl(tbl)
        Tables(Tbname & "." & Tbnames).SetColVisibleWidth("cInvCode|98|cDefine22|98|cDefine23|98|cDefine24|98|iQuantity|98|iUnitCost|98|iPrice|98")
        tbl.width=  tbl.Parent.width
        tbl.Height =  tbl.Parent.Height
        tbl.Dock=5

 

谢谢

简化后:

 　　Dim tbl As WinForm.Table
        tbl = e.Form.CreateTable("Table1", Tbname & "." & Tbnames, False)

　　 tbl.Dock=5(或者　tbl.Dock=Windows.Forms.DockStyle.Fill)
        Forms("F_DJ").Controls("SplitContainer1").Panel2.AddControl(tbl)
        Tables(Tbname & "." & Tbnames).SetColVisibleWidth("cInvCode|98|cDefine22|98|cDefine23|98|cDefine24|98|iQuantity|98|iUnitCost|98|iPrice|98")