主题：PostValues 的问题

跳转的话，只能传递getValues，你可以用values来获取。

Select Case e.Path
    Case "test\test.htm", ""
        Dim wb As New WeUI
        With wb.AddListGroup("", "lsg1","简单列表")
            .Add("ls1", "新浪主页")
            .Add("ls2", "网易主页")
        End With
        With wb.AddListGroup("", "lsg2", "增加说明的列表")
            .Add("ls3","新浪主页", "sina.com")
            .Add("ls4","网易主页", "163.com")
        End With
        With wb.AddListGroup("", "lsg3", "增加跳转的列表")
            .Add("ls5","新浪主页", "sina.com", "http://www.sina.com.cn?idd=123456abc")
            .Add("ls6","网易主页", "163.com", "http://www.163.com")
        End With
        With wb.AddListGroup("", "lsg4","增加图标的列表")
            .Add("ls7","新浪主页", "sina.com", "http://www.sina.com.cn", "./images/sina.png")
            .Add("ls8","网易主页", "163.com", "http://www.163.com", "./images/163.png")
        End With
        e.WriteString(wb.Build)
End Select