需求：在下面【办公】的页面上，点[登录]后，进入办公页面的第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)
加好友 
发短信
Post By：2023/6/28 17:04:00 [显示全部帖子]
