以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]面板加入面板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123281)

--  作者:blsu33
--  发布时间:2018/8/11 9:40:00
--  [求助]面板加入面板
老师,
   如何将面板按照指定的尺寸,按照指定的行数列数加入面板中?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动添加pnl.table



--  作者:有点蓝
--  发布时间:2018/8/11 9:57:00
--  
如果新增的panel尺寸是变化的,没有办法计算行列
--  作者:blsu33
--  发布时间:2018/8/11 9:58:00
--  
固定 怎么写 
--  作者:有点蓝
--  发布时间:2018/8/11 10:08:00
--  
细节自己调整

Dim txt As WinForm.Panel
txt = e.Form.CreateControl("Panel1", ControlTypeEnum.Panel)
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
txt.Left = val(t2.Text) * (35+80) + 35
txt.Top = val(t1.Text) * (35+80) + 35
txt.Width = 80
txt.height = 80
txt.BackColor = Color.blue
e.Form.Controls("Panel1").AddControl(txt)