以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  WEUI中页面跳转的问题求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=187177)
--  作者：YUNSEL
--  发布时间：2023/6/28 17:04:00
--  WEUI中页面跳转的问题求助
需求：在下面【办公】的页面上，点[登录]后，进入办公页面的第2个界面（下面红色部分），现在是进入了首页界面，请教下这个要怎么指定？谢谢老师

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
\'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 0)
    .AddPage("page1", "首页", "./images/exit.png")
    .AddPage("page2", "办公", "./images/exit.png")
    .AddButton("bt1", "退出", "./images/exit.png")
End With

\'为第1个页面增加内容
With wb.AddPanelGroup("page1", "pg1", "首页列表")
    .Add("pn1", "标题一", "", "./images/exit.png", "http://www.foxtable.com")
End With

If e.PostValues.Count = 0 Then \'生成增加单据网页
    \'为第二个页面增加内容
    \'默认第1个子界面
    wb.AddForm("page2", "form1", "AAA.htm")
    With wb.AddInputGroup("form1", "ipg1")
        .AddInput("xm", "户名", "text")
        .AddInput("mm", "密码", "password")
    End With
    With wb.AddButtonGroup("form1", "btg1", True)
        .Add("btn1", "确定", "submit")
    End With
Else
    \'密码通过后显示第二个界面
    With wb.AddGrid("page2", "g1")
        .Add("c1", "Button", "./images/exit.png").Attribute = ""
        .Add("c2", "Cell", "./images/exit.png", "http://www.foxtable.com")
        .Add("c3", "Toast", "./images/exit.png", "http://www.foxtable.com")
    End With
End If
wb.AppendHTML("<script src=\'./lib/test.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build)
--  作者：有点蓝
--  发布时间：2023/6/28 17:18:00
--  
wb.AppendHTML("<script>initExWeUI();</script>")
改为
if 密码通过 then
wb.AppendHTML("<script>initExWeUI();hide(\'page1\');show(\'page2\')</script>")
else
wb.AppendHTML("<script>initExWeUI();</script>")
endif
--  作者：YUNSEL
--  发布时间：2023/6/29 8:51:00
--  
谢谢