以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  控件动态布局  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138369)

--  作者:有点蓝
--  发布时间:2019/7/29 21:19:00
--  
参考:http://www.foxtable.com/webhelp/topics/1912.htm
--  作者:有点蓝
--  发布时间:2019/7/29 23:06:00
--  
我测试没有问题,控件Left值是不是太大超出范围了

Dim txt As WinForm.Button
txt = e.Form.CreateControl("管理按钮", ControlTypeEnum.Button)
txt.text = "管理按钮"
txt.Left = 0
txt.Top = 0
e.Form.Controls("SplitContainer1").Panel2.AddControl(txt)

--  作者:有点蓝
--  发布时间:2019/7/30 8:45:00
--  
这是要把现成的按钮移过去?我以为是创建按钮:

Dim btn As WinForm.Button = e.Form.Controls("管理按钮")
btn.basecontrol.Dock = 5
e.Form.Controls("SplitContainer1").Panel2.AddControl(btn)