主题：父id问题

我测试没问题

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTabBar("", "tb1",0)                            '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
            .AddButton("bt1","首页","./images/a.png","/index.htm")  '.Attribute = ""
            .AddButton("bt2","服务","./images/b.png","/myservice.htm")
            .Addpage("bt3","当前","./images/c.png")
            .AddButton("bt4","我的","./images/d.png","/personal.htm")
        End With
        With wb.AddArticle("bt3","ar1")
            .AddTitle("h1","发现")
            .AddTitle("h2","章标题")
            .AddTitle("h3","1.1节标题")
            .AddImage("./images/001.jpg")
            .AddTitle("h3","1.2节标题")
            .AddImage("./images/002.jpg")
        End With
        wb.InsertHTML("bt3","<p style='text-align:center;margin-top:10px'><span style='color:#FF0000;'>--------------- 下面是被邀请女生情况&nbsp;</span><span style='color:#FF0000;'>---------------</span><span style='color:#FF0000;'></span> </p>")
        e.WriteString(wb.Build)
End Select

找到问题了，使用相同的id名称造成的