主题：[求助]关于WEUI的Panel系列问题

你可以直接加样式的，比如

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一<lable style='color:red;'>任意</lable>", txt,"./images/button.png","http://www.foxtable.com") '超链接
            With .Add("pn2","标题二",txt,"./images/search.png") '带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        e.WriteString(wb.Build)
End Select

用js变量记录。

在你的页面那里，定义一个js变量，如 var test = "abc";

点击panel的时候，赋值，如 test = '123456'; 然后弹出菜单。

点击菜单的时候，根据test的值打开新的网页，如 location='/abc.htm?key=' + test;

 onclick="bianhao='123456'; show('s1')"

参考代码

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddButtonGroup("","btg",True)
            .Add("btn1","单击显示上拉菜单").Attribute = "onclick=""menu1.childNodes[0].innerHTML='123';show('s1')"""
        End With
        With wb.AddActionSheet("","s1")
            .Add("menu1", "菜单项目1", "http://www.foxtable.com/")
            .Add("menu2", "菜单项目2")
            .Add("menu3", "菜单项目3").Attribute = ""
            .Add("menu4","取消","",True)
        End With
        e.WriteString(wb.Build)
End Select

1、你用13楼代码测试，是否正常？

2、你单独做一个出错的例子，或者贴出可以直接测试的代码。