主题：[求助]自定义函数问题

老师，

Dim pg As WinForm.TabPage=tab.TabPages(dr("ym_gzid"))
    Dim s1 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_ml_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    Dim trvmls As WinForm.TreeView=FormS(dr("ckname")).CreateControl("trv_zy_" & dr("ym_gzid"),ControlTypeEnum.TreeView)
    Dim pmkj As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_kj_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    Dim pmcx As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_cx_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    Dim pmcz As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_cz_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    Dim pmxs As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_xs_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    'S1.BackMost=True
    Dim s2 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_kj_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    Dim s3 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_cx_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    S3.Orientation=0
    Dim s4 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_xs_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    'S4.TopMost=True
    S4.Orientation=0
    S1.Panel2.AddControl(S2)
    S1.Panel1.AddControl(trvmls)
    S2.Panel1.AddControl(S3)
    S2.Panel2.AddControl(pmkj)
    S3.Panel2.AddControl(S4)
    S3.Panel1.AddControl(pmcx)
    S4.Panel2.AddControl(pmcz)
    S4.Panel1.AddControl(pmxs)
    pmxs.BackColor=Color.red
    trvmls.Dock=5
    pmkj.Dock=5
    pmcx.Dock=5
    pmcz.Dock=5
    pmcz.Dock=5
    S1.FixedPanel=1
    S2.FixedPanel=2
    S3.FixedPanel=1
    S4.FixedPanel=2
    S1.Dock=5
    S2.Dock=5
    S3.Dock=5
    S4.Dock=5
    pg.AddControl(S1)

For Each cname As WinForm.Control In pg.Children
    MessageBox.Show(1)
Next


绿色的部分 都不显示，应该是什么原因呢？

1、提示不存在某某控件，说明你窗口没有add上对应的控件；

 

2、控件必须添加进form里面，才能用children，如

 

Dim pg =forms("窗口1").CreateControl("aaa",ControlTypeEnum.panel)
Dim s1 As WinForm.SplitContainer=FormS("窗口1").CreateControl("bbb",ControlTypeEnum.SplitContainer)
pg.AddControl(s1)
forms("窗口1").AddControl(pg)
msgbox(pg.children.count)

 https://pan.baidu.com/s/1pLdrmyR


麻烦老师您给看看

    For Each cdr As DataRow In drs
        ctab.TabPages.Add(cdr("编码规则"), cdr("编码名称"))
        Functions.Execute("loop", ctab, cdr)
    Next

 

改成

 

    For Each cdr As DataRow In drs
        ctab.TabPages.Add(cdr("编码规则"), cdr("编码名称"))
        Functions.Execute("loop", ctab, cdr, e)
    Next

 哦 这块忘改了，老师问题不是这里，下面的代码没有执行添加Botton 不成功啊。

 自定义函数loop 中的21楼的代码部分 添加Botton 不成功

 

你传入的参数有问题，请加入msgbox自行调试，这个很简单的。

 老师，
  测试了两天两夜，劳烦您给看下，现在看着都想吐了

明明没有问题 为什么就是不行。

 

弹出代码

 

msgbox(pnl.name.split("_")(2))