Foxtable(狐表)用户栏目专家坐堂 → [求助]如何在我动态生成的面板里面继续添加其他控件


  共有1818人关注过本帖树形打印复制链接

主题:[求助]如何在我动态生成的面板里面继续添加其他控件

帅哥哟,离线,有人找我吗?
Devil
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:319 威望:0 精华:0 注册:2017/9/15 13:20:00
[求助]如何在我动态生成的面板里面继续添加其他控件  发帖心情 Post By:2017/11/15 11:12:00 [只看该作者]

求助大佬,如何在我动态增加的面板里面继续添加label等控件
Dim txt As WinForm.panel
Dim top As Integer = 0
txt = e.Form.CreateControl("panel1", ControlTypeEnum.panel)
For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Panel Then '判断控件是否是面板
        txt.Top = top
        top += 350
        txt.Left = 10
        txt.width = 500
        txt.height = 300
        txt.backcolor = color.Azure
        e.Form.Controls("TabControl6").Tabpages(0).AddControl(txt)
    End If
Next
上面是我在button里写的增加面板,我想在这个代码里给他增加在增加的面板里添加其他控件的功能该怎么写啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/15 12:22:00 [只看该作者]

如代码

 

Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = "Foxtable"
lbl.Left = 100
lbl.Top = 100

txt.AddControl(lbl)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/15 12:23:00 [只看该作者]

如果不会做,具体实例发上来测试。

 回到顶部