以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中添加控件求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54632)
--  作者：sdlll
--  发布时间：2014/7/31 23:17:00
--  窗口中添加控件求助

比如:

向分区面板的第二个分区加入一个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　可以停靠到容器的旨定边框,也就是可大可小?给出的例子只能设置位置和大小,但不能随窗口的大小变化,求解,谢谢

 
--  作者：sdlll
--  发布时间：2014/7/31 23:25:00
--  

解决了:


        tbl.width=  tbl.Parent.width
        tbl.Height =  tbl.Parent.Height
--  作者：sdlll
--  发布时间：2014/7/31 23:33:00
--  
问题依然存在,窗口变化时还是不变,待解决.
--  作者：Bin
--  发布时间：2014/8/1 8:58:00
--  
停靠属性这只FILL即可
--  作者：有点甜
--  发布时间：2014/8/1 9:16:00
--  

加入代码

 

tbl.Dock = 5
--  作者：sdlll
--  发布时间：2014/8/1 10:51:00
--  

非常谢谢,现在可以了.

设想是设计主子表录入窗口,绑定字段和关联表都是代码动态添加,窗口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

 
--  作者：Bin
--  发布时间：2014/8/1 10:52:00
--  
谢谢

楼主的分享精神赞一个
--  作者：sdlll
--  发布时间：2014/8/1 11:03:00
--  

简化后:

 　　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")