Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<script>var cur;</script>",True)
wb.AddPage("","page1") '增加两个page
wb.AddPage("","page2",False) '第二个
With wb.AddListGroup("page1", "lsg1","简单列表")
For i As Integer = 0 To 20
Dim s As String
s="lg" & i
.Add(s, "新浪主页" & i).Attribute="tabindex='1' onclick=""cur='#" & s & "';hide('page1');show('page2')"""
Next
End With
With wb.AddArticle("page2","ar2")
.AddTitle("h1","关于易表")
.AddContent("易表.net介于电子表格和数据库软件之间,它有类似电子表格的界面,同时又有很多数据库软件特有的功能和灵活性,它能将复杂的操作简单化,让普通用户轻松完成复杂的数据管理和统计分析工作.")
.AddImage("./images/002.jpg")
End With
With wb.AddButtonGroup("page2","btg2")
.Add("btn2", "上一页", "button").Attribute="onclick=""hide('page2');show('page1');document.querySelector(cur).focus();"""
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2021/4/8 10:12:00 [显示全部帖子]
