以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]我想把页面集合 标签1 SplitContainer1内的所有标签弄到 页面标签2的 SplitContainer4里 该怎办》？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15055)
--  作者：gaoyong30000
--  发布时间：2011/12/11 12:21:00
--  [求助]我想把页面集合 标签1 SplitContainer1内的所有标签弄到 页面标签2的 SplitContainer4里 该怎办》？

用了

 

Dim grp1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim grp2 As WinForm.SplitContainer= e.Form.Controls("SplitContainer4")
For Each c As Winform.Control In e.Form.Controls   
    If c.basecontrol.Parent.Name= grp1.Name Then
        grp2.BaseControl.Controls.Add(c.BaseControl)
    End If
Next

 

说我集合只读
--  作者：古奇
--  发布时间：2011/12/11 13:52:00
--  

将标签放在面板里

 

Dim tbl As WinForm.Panel
tbl = e.Form.Controls("Panel1")
tbl.SetBounds(0, 0, 100, 100)
e.Form.Controls("SplitContainer1").Panel1.AddControl(tbl)