- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 控件动态布局 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138369)
-- 发布时间：2019/7/29 20:45:00
-- 控件动态布局
Button1
Button2
Button3
Button4
四个按钮
放入SplitContainer5的 Panel1 停靠为 Fill
代码怎么写
-- 发布时间：2019/7/29 21:19:00
--
参考：http://www.foxtable.com/webhelp/topics/1912.htm
-- 发布时间：2019/7/29 22:53:00
--
Dim txt As WinForm.Button
txt = e.Form.CreateControl("管理按钮", ControlTypeEnum.Button)
txt.Left = 209
txt.Top = 48
e.Form.Controls("SplitContainer4").Panel2.AddControl(txt)
不好使 么有反应
[此贴子已经被作者于2019/7/29 22:59:53编辑过]
-- 发布时间：2019/7/29 22:56:00
--
见图
-- 发布时间：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/29 23:09:00
--
案例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态控件.foxdb |
-- 发布时间：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)