以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  PostValues 的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123922)
--  作者：xluoping
--  发布时间：2018/8/27 10:59:00
--  PostValues 的问题
。。。。。。
wb.AddForm("","form","")
        With wb.AddInputGroup("form","igp1")
           .AddHidenValue("idd","8888")
        End With

。。。。。。

        With wb.AddListGroup("", "lsg3", "增加跳转的列表")
            .Add("ls5","客户列表", "kehu.htm", "kehu.htm").Attribute = "????????????????"
            .Add("ls6","网易主页", "163.com", "http://www.163.com")
        End With

。。。。。。

如何设置代码，Attribute = "????????????????" 向kehu.htm传递  PostValues(“idd”)数据  ，是 .Attribute = """  吗

[此贴子已经被作者于2018/8/27 10:59:46编辑过]
--  作者：有点甜
--  发布时间：2018/8/27 11:47:00
--  

跳转的话，只能传递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